[asto]

هذا هو الكود

كود :

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

و في الفورم لود :

delicon
Call seticon