فتح البرنامج بتاعي عند الضغط على الأيقونة بتاعته اللي بجانب الساعة

لو بحثت شويه هتلاقي اني رفعت اداه كامله مع مثال لطلبك

والله الموفق

السلام عليكم

هذا ما تريدة

 Module
Type NOTIFYICONDATA
	cbsize			  As Long
	hWnd				As Long
	uID				 As Long
	uFlags			  As Long
	ucallbackMessage	As Long
	hicon			   As Long
	szTip			   As String * 

'Form
Dim SW As String
Dim PrevWord As String
Dim Beeped As Boolean
Dim MyHeight As Long
Dim MyWidth As Long
Dim Res As Long
Dim si As NOTIFYICONDATA

Private Sub DeleteIcon()
On Error Resume Next

Dim Tic As NOTIFYICONDATA
Tic.cbsize = Len(Tic)
Tic.hWnd = Picture1.hWnd
Tic.uID = 1&
End Sub

Private Sub Form_Load()
On Error Resume Next

MyHeight = Me.Height
MyWidth = Me.Width

'Put the icon in the system try.
si.cbsize = Len(si)
si.hWnd = Picture1.hWnd
si.uID = 1&
si.szTip = "ÇáÍÓÇã íÑÍÈ Èßã" + Chr$(0)
si.ucallbackMessage = WM_MOUSEMOVE
si.hicon = Me.Icon
si.uFlags = NIF_MESSAGE Or NIF_ICON Or NIF_TIP
Shell_NotifyIconA NIM_ADD, si

Me.WindowState = 3

End Sub

Private Sub Form_Unload(Cancel As Integer)
On Error Resume Next

si.cbsize = Len(si)
si.uID = 1
si.hWnd = Picture1.hWnd
Shell_NotifyIconA NIM_DELETE, si


End Sub

Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
On Error Resume Next

Dim lMsg As Long

lMsg = X / Screen.TwipsPerPixelX
Select Case lMsg
	  Case WM_LBUTTONDBLCLK:
		   Me.Show
		   Me.WindowState = vbNormal
	  Case WM_LBUTTONDOWN:
		   Me.Show
		   Me.WindowState = vbNormal
	  Case WM_LBUTTONUP:
	  Case WM_RBUTTONDBLCLK:
	  Case WM_RBUTTONDOWN:
		   Me.PopupMenu mnuMain
	  Case WM_RBUTTONUP:
End Select
End Sub
Private Sub Form_Resize()
On Error Resume Next

If Me.WindowState = vbMaximized Then Me.WindowState = vbNormal
If Me.WindowState = vbMinimized Then
   Me.Hide
   Exit Sub
End If
Me.Height = MyHeight
Me.Width = MyWidth

End Sub

Private Sub cmdMinimize_Click()
On Error Resume Next

Me.WindowState = 1

End Sub