كود يعمل مشاكل - نسخة قابلة للطباعة

كود :
Private Declare Function Shell_NotifyIcon Lib _

"shell32.dll" Alias "Shell_NotifyIconA" _

(ByVal dwMessage As Long, lpData As NOTIFYICONDATA) As Long

Private Type NOTIFYICONDATA



cbSize As Long



hWnd As Long



uID As Long



uFlags As Long



uCallbackMessage As Long



hIcon As Long



szToolTip As String * 64



End Type



Dim notify As NOTIFYICONDATA



Private Const NIM_ADD = &H0

Private Const NIM_DELETE = &H1

Private Const NIF_ICON = &H2

Private Const NIF_MESSAGE = &H1

Private Const NIF_TIP = &H4

''''''''''''''''''''''''''''''''

Private Const WM_MOUSEMOVE = &H200

Private Const WM_LBUTTONUP = &H202

Private Const WM_RBUTTONUP = &H205





Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)



Call delicon



End Sub



Private Sub picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, y As Single)



If Button = 2 Then



Me.PopupMenu ee



End If



End Sub



Public Sub seticon()



With notify



.cbSize = Len(obj)



.hWnd = Picture1.hWnd



.uID = 1&



.uFlags = NIF_TIP Or NIF_MESSAGE Or NIF_ICON



.uCallbackMessage = WM_MOUSEMOVE



.hIcon = Picture1.Picture



.szToolTip = "vb4arab.com"



End With



Shell_NotifyIcon NIM_ADD, notify



End Sub



 



Public Sub delicon()



Shell_NotifyIcon NIM_DELETE, notify



End Sub