[RESOLVED] If Mouse_click Then OR If Mouse_dblClick Then

[stilekid007]

Hey guys,

I am using this program that I downloaded from this forum. What I need it to do though is when the system tray icon is clicked it will Hide the form and when it is double clicked it will show the popup menu.

Here is the code that brings up the popup menu.

Private Sub picIcon_MouseUp(index As Integer, Button As Integer, Shift As Integer, x As Single, y As Single)
    ' Messages from the systray will be passed here.    On Error GoTo BadMenu
    Dim Msg As Long
    
    Msg = x / Screen.TwipsPerPixelX
    Select Case Msg
        Case WM_LBUTTONUP, WM_LBUTTONDBLCLK, WM_RBUTTONUP
            PopupMenu mnuPopup
    End Select
End Sub

How can I make this work?

Thank you everyone!
Stilekid007

[si_the_geek]

Just change the Select Case block to this:

Select Case Msg
        Case WM_LBUTTONUP
            Me.Hide
        Case WM_LBUTTONDBLCLK
            PopupMenu mnuPopup
    End Select

[stilekid007]

Very simple!
That's great!
Thank you Geek!

Stilekid007