j'ai un systray ds un de mes programme il tourne sans pb mais des ke j'ajoute ce code la a mon programme ca me plante mon sys tray le menu revien ds la fenetre du prog et l'icone disparait du systray
 
Private Sub ProcessMessages()
    Dim Message As Msg
    'répéter tant que bCancel ne vaut pas True
    Do While Not bCancel
        'en attante de message
        WaitMessage
        'vérifie si c'est un HOTKEY-message
        If PeekMessage(Message, Me.hWnd, WM_HOTKEY, WM_HOTKEY, PM_REMOVE) Then
            'WindowState = vbNormal
            stat_change
        End If
        'laisse les progs travailler
        DoEvents
    Loop
End Sub
 
 
voila les api que j'utilise pour mon systray
 
Private Type IconeTray
    cbSize As Long      'Taille de l'icône (en octets)
    hWnd As Long        'Handle de la fenêtre chargée de recevoir les messages envoyés lors des évènements sur l'icône (clics, doubles-clics...)
    uID As Long         'Identificateur de l'icône
    uFlags As Long
    uCallbackMessage As Long    'Messages à renvoyer
    hIcon As Long               'Handle de l'icône
    szTip As String * 64        'Texte à mettre dans la bulle d'aide
End Type
Dim IconeT As IconeTray
 
 
'Constantes nécessaires
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 nécessaire
Private Declare Function Shell_NotifyIcon Lib "shell32" Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, pnid As IconeTray) As Boolean
 
aidez moi svp
 

Je crois franchement que ca serait plus simple avec un OCX...

ouai bin g pas envi de charger mon prog d'ocx
car il doit etre distribuable facilement et sans prog d'installe
c mon programme ki fait l'install au premier lancement

désolé d'avoir posté un peu rapidement je viens de trouver une solution mettre la définition de la fonction a la fon de mon form_load