Private Sub Form_Resize()
    If Me.WindowState = vbMinimized Then
        Me.Visible = False[color=green]
                'hier den code einfügen der
                'das trayicon anzeigt
[/color]    Else
        Me.Visible = True
    End If
End Sub

mfg
brave@heart

...bis zur unendlichkeit und noch viel weiter...