Minimizing to the Systay

[Lord_Rat]

** Looks around nervously **

Umm yeah, I should probably comment my code better:

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Static lngMsg As Long
    Static blnFlag As Boolean
    Dim result As Long
    lngMsg = X / Screen.TwipsPerPixelX
    If lngMsg = WM_LBUTTONDBLCLICK Or lngMsg = WM_RBUTTONUP Then
'      tmp = tmp
    End If
    CheckTray Me, lngMsg, blnFlag, result
End Sub

I'm pretty sure that's everything (now)

Another point:
The name of the form will be the tool-tip for the tray icon.