Result = SetForegroundWindow(Me.hwnd)

Private Sub Picture1_MouseMove _
(Button As Integer, _
Shift As Integer, _
X As Single, Y As Single)
If Button = 2 Then
DoEvents
Result = SetForegroundWindow(Me.hwnd)
Me.PopupMenu Me.mnuShell 'mnuShell skall vara namnet på menyn som poppas upp
End If
End Sub