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 TrayIcon As NOTIFYICONDATA
Private Declare Function Shell_NotifyIcon Lib "shell32" Alias _
  "Shell_NotifyIconA" (ByVal dwMessage As Long, pnid As NOTIFYICONDATA) As _
  Boolean
 
Private Sub Command1_Click()
    Call MinimizeAsIcon
End Sub
 
Sub MinimizeAsIcon()
    Dim ToolTipText As String
    Dim TrayIcon As NOTIFYICONDATA
    App.TaskVisible = False
    Me.Hide
    Me.WindowState = 0
    With TrayIcon
        .cbSize = Len(TrayIcon)
        .hWnd = Me.hWnd
        .uId = vbNull
        .uFlags = &H2 Or &H4 Or &H1
        .ucallbackMessage = &H200
        .hIcon = Me.Icon
        .szTip = ToolTipText & Chr$(0)
    End With
    Call Shell_NotifyIcon(&H0, TrayIcon)
End Sub
 
Private Sub Form_Load()
    Command1.Caption = "Minimieren per Button"
    MinimizeAsIcon
End Sub
 
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y _
  As Single)
    On Error Resume Next
    Static Message As Long
    Dim TrayIcon As NOTIFYICONDATA
    Static RR As Boolean
    Message = X / Screen.TwipsPerPixelX
    If RR = False Then
        RR = True
        Select Case Message
            Case &H203
                Me.Show
                Me.WindowState = 0
                With TrayIcon
                    .cbSize = Len(TrayIcon)
                    .hWnd = Me.hWnd
                    .uId = vbNull
                End With
                Call Shell_NotifyIcon(&H2, TrayIcon)
            Case &H205
                Me.PopupMenu mnuForm
        End Select
    RR = False
    End If
End Sub
 
Private Sub Form_Resize()
    If Me.WindowState = 1 Then
        MinimizeAsIcon
    End If
End Sub
 
Private Sub mnuShow_Click()
    Me.Show
    Me.WindowState = 0
    With TrayIcon
       .cbSize = Len(TrayIcon)
        .hWnd = Me.hWnd
        .uId = vbNull
    End With
    Call Shell_NotifyIcon(&H2, TrayIcon)
End Sub