arkadaşlar bu genellikle programların windows arac cubugunda iconun gorunmesini sağlıyor..
Ben bi buton yardımıyla iconu taşımayı buldum ama siz formun load yerinede yazabilirsiniz tabi..
Kod:
`Yeni bir Form yaratarak baslayin. Ardindan bir Command1 buttonu `vede Bir Menu ekleyin. Menunun ismini Popup Cunku `ben oyle yapmistim. Daha sonra icine 2 alt menu ekleyin Bunlarin `isimleride MenuGoster ve MenuKapat olsun. Bu Menunun gorevi; Systray `halindeyken Icona sag okla tikladiginizda koydugunuz menuler `yardimiyla programinizi yonlendirmeniz olacak. `Ve son olarak Formunuza Bu kodu Paste leyin... `Iste hepsi bukadar. Kodu inceleyin nekadar basit oldugunu `goreceksiniz... Iyi calismalar.! 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 Const WM_LBUTTONDBLCLK = &H203 Private Const WM_LBUTTONDOWN = &H201 Private Const WM_LBUTTONUP = &H202 Private Const WM_RBUTTONDBLCLK = &H206 Private Const WM_RBUTTONDOWN = &H204 Private Const WM_RBUTTONUP = &H205 Private Declare Function Shell_NotifyIcon Lib "shell32" Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, pnid As NOTIFYICONDATA) As Boolean Dim nid As NOTIFYICONDATA Private Sub Command1_Click() nid.cbSize = Len(nid) nid.hWnd = Form1.hWnd nid.uId = vbNull nid.uFlags = NIF_ICON Or NIF_TIP Or NIF_MESSAGE nid.uCallBackMessage = WM_MOUSEMOVE nid.hIcon = Form1.Icon 'buraya herhangı bır formun ıconunu yazabılırsınız.. nid.szTip = "Programımız Adı Veya Mouse Uzerine gelince yazmak istediğiniz.." & vbNullChar Shell_NotifyIcon NIM_ADD, nid Me.Visible = False End Sub Private Sub Form_Load() YigitsMenu.Visible = False Command1.Picture = Me.Icon `Command1 Buttonumuza ICONumuzu atiyoruz. End Sub Private Sub Form_Terminate() Shell_NotifyIcon NIM_DELETE, nid ` Her turlu hataya karsi burda da onlem almamiz gerekiyor.. End Sub Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Dim msg As Long msg = X / Screen.TwipsPerPixelX Select Case msg Case WM_LBUTTONDOWN Case WM_LBUTTONUP Case WM_LBUTTONDBLCLK `sol tus cift klik MenuGoster_Click Case WM_RBUTTONDOWN `sag tus basili PopupMenu Popup , MenuGoster Case WM_RBUTTONUP `sag tus basilip birakildi Case WM_RBUTTONDBLCLK `sag tus cift klik End Select End Sub Private Sub Form_Unload(Cancel As Integer) Shell_NotifyIcon NIM_DELETE, nid `Formumuz kapandiginda Iconumuzu kaldiriyoruz... End Sub Private Sub MenuGoster_Click() `Koydugumuz Menunun Iconken sol ok ile ortaya cikmasini `sagliyoruz... Me.Visible = True Shell_NotifyIcon NIM_DELETE, nid End Sub Private Sub MenuKapat_Click() `Burda da yine sol okla cikan menudeki Kapat buttonu... Unload Me End Sub

__________________