iyi de bu kodları nereye yazacaz biraz açıklar mısın

bunu yapman için önce form1'in üstüne bir ikon resmi koyman lazım... ikon resmi olmazsa olmaz ki... lütfen biraz dikkatli ol paylaşım yaparken... picture1 olmalı

Aşağıda vereceğim kod sayesinde sytstem traya programımızın ikonunu koyabiliyoruz. Bnde Çalıştı. Bide Repıt atarsanız ii olur 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 Const NIM_ADD = &H0 Private Const NIM_MODIFY = &H1 Private Const NIM_DELETE = &H2 Private Const WM_MOUSEMOVE = &H200 Private Const NIF_MESSAGE = &H1 Private Const NIF_ICON = &H2 Private Const NIF_TIP = &H4 Private Declare Function Shell_NotifyIcon Lib "shell32" Alias "Shell_NotifyIconA" _ As Boolean Dim tk As NOTIFYICONDATA Public Sub trayicon tk. cbSize = Len tk. hwnd = Form1. Picture1. hwnd tk. uId = 1& tk. uFlags = NIF_ICON Or NIF_TIP Or NIF_MESSAGE tk. ucallbackMessage = WM_MOUSEMOVE tk. hIcon = Form1. Picture1. Picture İkon resmi tk. szTip = " Sarkıntı " & Chr$(0) If kontrol = False Then Shell_NotifyIcon NIM_DELETE, tk If kontrol = True Then Shell_NotifyIcon NIM_ADD, tk End Sub Private Sub Picture1_MouseMove If Hex = "1E3C" Then Me. PopupMenu MnPr İkon PopUp mönüsü End If End Sub Private Sub Form_Load trayicon True ' SysTray e ikon eklenir End Sub Private Sub Form_Unload trayicon False ' SysTray den ikon silinir End Sub

bu kodları yazman için visual basic programının olması yeterli