...
       MenuForm1.Show vbModal
    End If
    ' ------------------------------------------- Mutex löschen
    UnloadForms
    Exit Sub
ErrInfo:
    MsgBox Err.Number & ", " & Err.Description
    Resume Next
End Sub

Public Function SubWndProc(ByVal hwnd As Long, ByVal msg As Long, ByVal wParam _
  As Long, ByVal lParam As Long) As Long
    Dim point As POINTAPI
    Select Case msg
       Case WM_TASKBAREVENT
          Select Case (lParam And &HFFFF&)
             ' --------------------------------- linke Maustaste (Doppelklick)
              Case WM_LBUTTONDBLCLK
                 MenuForm1.Show
             ' --------------------------------- rechte Maustaste (Klick)
              Case WM_RBUTTONDOWN
                 GetCursorPos point
                 MenuForm1.PopupMenu MenuForm1.popup_m, , point.X * _
                   Screen.TwipsPerPixelX, _
                                 point.Y * Screen.TwipsPerPixelX
          End Select
    End Select
    ' ------------------------------------------ Ursprüngliche WinProc aufrufen
    SubWndProc = CallWindowProc(PrevWndProc, hwnd, msg, wParam, lParam)
End Function