Problém s ikonkou v traybaru – Visual Basic – Fórum – Programujte.com

Mám problém se svou aplikací. Potřebuji, aby se aplikace po stisknutí určitého tlačítka nebo "skrýt" v Popup menu minimalizovala do ikonky v traybaru a po poklikání nebo stisknutí "zobrazit" v popup menu této ikonky opět zobrazila. Toto mi již funguje ale vyskytl se problém. Občas mi samo od sebe vyskočí popup menu nebo se aplikace minimalizuje. Nevím proč to dělá a tak vás žádám o pomoc.
Pravděpodobně je to zapříčiněno touto částí kódu:

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)



Dim Result As Long

Dim msg As Long



If Me.ScaleMode = vbPixels Then

  msg = X

Else

  msg = X / Screen.TwipsPerPixelX

End If



Select Case msg

  Case WM_RBUTTONUP

    PopupMenu mnuPopup

  Case WM_LBUTTONDBLCLK

      If Form1.Visible = False Then

         Form1.Visible = True

         mnuFunction.Caption = "Skrýt"

      Else

         Form1.Visible = False

         mnuFunction.Caption = "Zobrazit"

      End If

End Select

Exit Sub

End Sub

Používám trošičku jiný způsob a funguje bezchybně

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)

RetVal = x / Screen.TwipsPerPixelX
Select Case RetVal
Case WM_LBUTTONDOWN
' zvedni form
Case WM_RBUTTONDOWN
' popup menu
Case WM_MBUTTONDOWN
' konec programu
End Select
End Sub

RetVal má znamenat vrať hodnotu?
nebo je to tvá proměnná?
ale jinak jednoduše a čistě
10 z 10