Sub MinimizeAsIcon()
    Dim ToolTipText As String
    Dim TrayIcon As NOTIFYICONDATA
    App.TaskVisible = False
    Me.Hide
    With TrayIcon
        .cbSize = Len(TrayIcon)
        .hWnd = Me.hWnd
        .uId = vbNull
        .uFlags = &H2 Or &H4 Or &H1
        .ucallbackMessage = &H200
        .hIcon = picTray
        .szTip = ToolTipText & Chr$(0)
    End With
    Call Shell_NotifyIcon(&H0, TrayIcon)
End Sub

VB4ever