وضع البرنامج في شريط المهام بجوار الساعة

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

'في النموذج
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