Kod:
Private Type IconeTray cbSize As Long hWnd As Long uID As Long uFlags As Long uCallbackMessage As Long hIcon As Long szTip As String * 64 End Type Dim IconeT As IconeTray Private Const AJOUT = &H0 Private Const MODIF = &H1 Private Const SUPPRIME = &H2 Private Const MOUSEMOVE = &H200 Private Const MESSAGE = &H1 Private Const Icone = &H2 Private Const TIP = &H4 Private Const DOUBLE_CLICK_GAUCHE = &H203 Private Const BOUTON_GAUCHE_POUSSE = &H201 Private Const BOUTON_GAUCHE_LEVE = &H202 Private Const DOUBLE_CLICK_DROIT = &H206 Private Const BOUTON_DROIT_POUSSE = &H204 Private Const BOUTON_DROIT_LEVE = &H205 'API Private Declare Function Shell_NotifyIcon Lib "shell32" Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, pnid As IconeTray) As Boolean Private Sub Form_Load() IconeT.cbSize = Len(IconeT) IconeT.hWnd = Me.hWnd IconeT.uID = 1& IconeT.uFlags = Icone Or TIP Or MESSAGE IconeT.uCallbackMessage = MOUSEMOVE IconeT.hIcon = Me.Icon IconeT.szTip = "Icon Tray" & Chr$(0) Shell_NotifyIcon AJOUT, IconeT End Sub
arkadaşlar system icon yapma kodları bu ben bu kodları cod bolumune koyuyorum sonra
Kod:
Forma CheckBox Ekleyin. Kodları Formun Kod Penceresine Yazın.. Private Sub Check1_Click() Dim KayitDefteri As Object Set KayitDefteri = CreateObject("wscript.shell") If Check1.Value = 0 Then KayitDefteri.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\MICROSOFT\WINDOWS \CUR RENTVERSION\RUN\" & App.EXEName, "" & "" & "" & "" End If If Check1.Value = 1 Then KayitDefteri.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\MICROSOFT\WINDOWS \CUR RENTVERSION\RUN\" & App.EXEName, App.Path & "\" & App.EXEName & ".exe" End If End Sub

bu kodda programın pc acılınca programın otomatik acılmasını sağlıyor bu iki kodu yan yana getirdiğimde sorun cıkıyor sizden ricam bu kodları yan yana getirmeniz sorunsuz bir şekilde calışmasını sağlamak ve sonra proje olarak bana verirseniz cok sevinirim


YARDIMLARINIZ BEKLİYORUM...
__________________