Hej,
Pelle har skrivit in ett tips under Tips & Trix med ovanstående titel. Jag skulle gärna vilja veta hur det används i praktiken.
Jag har ett program som skapar ikon i Systray och har äver en popup-meny där. Problemet är att menyn inte stängs när den inte är markerad eller om man aktiverar ett annat program.

Jag hänger inte med på vad skall skall med Picture1 till.

Tacksam för förslag!
/Mikromjuk

Detta tipset skrev Pelle in:
<B<Form</B>
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

<B>Modul</B>
Public Declare Function SetForegroundWindow Lib "user32" (ByVal hwnd As Long) As Long

Kör du under win2000?

Ja... jag utvecklar i Win2k.

Men min applikation körs på Win9x, WinNT4 och Win2k.