'Genellikle System Tray Icon uygulamalarinda Uzun uzun Modüller 'kullanilir. Fakat ben bu uygulamayi size Modülsüz olarak çok 'kisa bir kod yardimiyla yapmanizi sagliyacam... ' 'Yeni bir Form yaratarak baslayin. Ardindan bir Command1 buttonu 'vede Bir Menu ekleyin. Menunun ismini YigitsMenu yapin ) Çünkü 'ben öyle yapmistim. Daha sonra içine 2 alt menu ekleyin Bunlarin 'isimleride MenuGöster ve MenuKapat olsun. Bu Menunun görevi; Systray 'halindeyken Icona sag okla tikladiginizda koydugunuz menuler 'yardimiyla programinizi yönlendirmeniz olacak. 'Ve son olarak Formunuza Bu kodu Paste leyin... 'Iste hepsi bukadar. Kodu inceleyin nekadar basit oldugunu 'göreceksiniz... Iyi çalismalar.! 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" As Boolean Dim nid As NOTIFYICONDATA Private Sub Command1_Click nid. cbSize = Len 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 nid. szTip = "Görev çubugunda görünür" & 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 türlü hataya karsi burda da önlem almamiz gerekiyor.. End Sub Private Sub Form_MouseMove Dim msg As Long msg = X / Screen. TwipsPerPixelX Select Case msg Case WM_LBUTTONDOWN Case WM_LBUTTONUP Case WM_LBUTTONDBLCLK 'sol tus çift klik MenuGoster_Click Case WM_RBUTTONDOWN 'sag tus basili PopupMenu YigitsMenu, , , , MenuGoster Case WM_RBUTTONUP 'sag tus basilip birakildi Case WM_RBUTTONDBLCLK 'sag tus çift klik End Select End Sub Private Sub Form_Unload Shell_NotifyIcon NIM_DELETE, nid 'Formumuz kapandiginda Iconumuzu kaldiriyoruz... End Sub Private Sub MenuGoster_Click 'Koydugumuz Menunun Iconken sol ok ile ortaya çikmasini 'sagliyoruz... Me. Visible = True Shell_NotifyIcon NIM_DELETE, nid End Sub Private Sub MenuKapat_Click 'Burda da yine sol okla çikan menudeki Kapat buttonu... Unload Me End Sub

AcTioN paylaşmıs işinize yaramıştır ama hazır kod istekleri konusunda mevcuttu, istekleriniz için orayı kullanırsanız forum düzeni için daha iyi olur. Wardom'a hoş geldiniz.

öncelikle esselamünaleyküm kardeşlerim yeni bir proğram yaptım radyo için ama bir yerde sıkıntı yaşıyorum bana yardım ederseniz sevinirim resimde göstermiş olduğum nokta kısmına simge durumuna küçült nasılk koyarım yada onu saatin oraya nasıl gönderirim orada simgesi olsun istiyorum

Çok basit bu kadar koda gerek yok bi buton yap ismi command3 olsun bastığın zaman minimize haline geçer """""""""""""""""""""""""""" Private Sub Button3_Click Form1. WindowState = 1 End Sub """""""""""""""""""""""""""""

Fakat isteği iyi okumanı tavsiye ederim Çünkü 2 şeyden birini istemiş. Ya simge durumuna küçültmeyi ya da systray a gizlemeyi O yüzden adamları suçlama boş yere Kayıtlı