Public Sub Trayicon_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim Command As Long
Command = (X And &HFF) * &H100
Select Case Command
Case 0 'mouse moves
Case &HF00 'left mouse button down
Case &H1E00 'left mouse button up...
I'm actually running an email checker program which uses the Timer API to check the mail every so often. The problem is that the mail gets checked more often then the interval on the timer and I can't figure out why - In a module I have declared:
Declare Function SetTimer Lib...
2 Questions:
I created a menu that pops up on a right click on a system tray icon. It works when it gets clicked, but if the user doesn't click on any of the menu options and moves
the mouse away, the menu still remains open and visible. even when I click on other things it stays there and...
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.