انا حطيت ايقونه لبرنامجي جنب الساعه بس لما بدوس علي الايقونه ما بيظهرش البرنامج

بسم الله الرحمن الرحيم

شباب انا حطيت ايقونه لبرنامجي جنب الساعه بس لما بدوس علي الايقونه ما بيظهرش البرنامج

الكود في الموديل

Public Type NOTIFYICONDATA
	   cbSize As Long
	   hWnd As Long
	   uId As Long
	   uFlags As Long
	   uCallBackMessage As Long
	   hIcon As Long
	   szTip As String * 64
	  End Type

	  Public Const NIM_ADD = &H0
	  Public Const NIM_MODIFY = &H1
	  Public Const NIM_DELETE = &H2
	  Public Const NIF_MESSAGE = &H1
	  Public Const NIF_ICON = &H2
	  Public Const NIF_TIP = &H4
	  Public Const WM_MOUSEMOVE = &H200
	  Public Const WM_LBUTTONDOWN = &H201	 'Button down
	  Public Const WM_LBUTTONUP = &H202	   'Button up
	  Public Const WM_LBUTTONDBLCLK = &H203   'Double-click
	  Public Const WM_RBUTTONDOWN = &H204	 'Button down
	  Public Const WM_RBUTTONUP = &H205	   'Button up
	  Public Const WM_RBUTTONDBLCLK = &H206   'Double-click

	  Public Declare Function SetForegroundWindow Lib "user32" _
	  (ByVal hWnd As Long) As Long
	  Public Declare Function Shell_NotifyIcon Lib "shell32" _
	  Alias "Shell_NotifyIconA" _
	  (ByVal dwMessage As Long, pnid As NOTIFYICONDATA) As Boolean

	  Public nid As NOTIFYICONDATA

الفورم في حدث اللود

Private Sub Form_Load()
	   Me.Show
	   Me.Refresh
	   With nid
		.cbSize = Len(nid)
		.hWnd = Me.hWnd
		.uId = vbNull
		.uFlags = NIF_ICON Or NIF_TIP Or NIF_MESSAGE
		.uCallBackMessage = WM_MOUSEMOVE
		.hIcon = Me.Icon
		.szTip = "Your ToolTip" & vbNullChar
	   End With
	   Shell_NotifyIcon NIM_ADD, nid

الفورم في حدث ريسايز

Private Sub Form_Resize()
	  If Me.WindowState = vbMinimized Then Me.Hide
End Sub

الفورم في حدث ان لود

Private Sub Form_Unload(Cancel As Integer)
	   Shell_NotifyIcon NIM_DELETE, nid
End Sub