كيف أضع رمز لبرنامجي على شريط المهام؟

هل تعني ان يكون هناك ايقونة بجانب الساعة؟

هذا ال class المرفق يقوم بالمهمة

استخدامه:

Public WithEvents NID As clsBalloon
Private Sub Form_Load()
    Set NID = New clsBalloon
    NID.Init Me.Icon, Me, Pic.hwnd
End Sub

Private Sub Pic_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
NID.HandleEvent X
End Sub

Private Sub NID_SysTrayDoubleClick(ByVal eButton As MouseButtonConstants)
Form1.Show
End Sub

clsBalloon.cls

شكرا لك اخي راكان الحنيطي

كنت ابحث عن مثل هذا