উইণ্ডোজ অপারেটিং সিস্টেম টাস্কবারের ডান দিকে কিছু আইকন থাকে, এদের সিস্টেম ট্রে আইকন বলে ৷ এই সিস্টেম ট্রেতে আরও আইকন যোগ করা যায় ৷ ভিজুয়াল বেসিকে লেখা নিচের প্রগ্রামটি দিয়ে আইকন যোগ করা যাবে ৷
Private 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
Private Declare Function Shell_NotifyIcon Lib �shell32� Alias �Shell_NotifyIconA� (ByVal dwMessage As Long, pnid As NOTIFYICONDATA) As Boolean
Dim tr As NOTIFYICONDATA
Private Sub Form_Load()
tr.hWnd = Me.hWnd
tr.uFlags = 2
tr.hIcon = Me.Icon
Shell_NotifyIcon 0, tr
End Sub
Private Sub Form_Unload(Cancel As Integer)
Shell_NotifyIcon 2, tr
End Sub.