Dim oPopUp As Object
Dim nItem As Long
Dim sKey As String
 Dim P As POINTAPI
  Dim x As Long
  Dim Y As Long
 
  ' Absolute Position des CommandButtons auf
  ' dem Bildschirm ermitteln
  With Command3
    Call ClientToScreen(.hWnd, P)
 
    x = (P.x - 1)
    Y = (P.Y - 1) + ScaleY(.Height, Me.ScaleMode, vbPixels)
  End With
Set oPopUp = CreatePopUp()
With oPopUp
.AddItem "Ausschalten", "Ausschalten", , Picture3.Picture
.AddItem "Herunterfahren", "Ausschalten1", "Ausschalten", Picture3.Picture
.AddItem "Neu Starten", "Ausschalten2", "Ausschalten", Picture3.Picture
.AddItem "Abmelden", "Ausschalten3", "Ausschalten", Picture3.Picture
.AddItem "-"
.AddItem "Einstellungen", "Einstellungen", , Picture3.Picture
.AddItem "-"
.AddItem "Beenden", "Beenden", , Picture2.Picture
 
  nItem = .Show()
  If nItem > 0 Then sKey = .KeyFromID(nItem)
End With
Set oPopUp = Nothing
 
If Len(sKey) > 0 Then
  Select Case sKey
Case "Ausschalten1"
RebootSystem EWX_SHUTDOWN
Case "Ausschalten2"
RebootSystem EWX_REBOOT
Case "Ausschalten3"
RebootSystem EWX_LOGOFF
Case "Einstellungen"
Form2.Show
Case "Beenden"
Unload Me
  End Select
End If