Form als Tray Icon (von Jan Welker, übersetzt nach VB.NET )

1
2
3
4
5
6
7
8
9
10
11
12
13
14

    Private Sub NotifyIcon1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles NotifyIcon1.Click
        Me.ShowInTaskbar = True
        Me.NotifyIcon1.Visible = False
        Me.WindowState = FormWindowState.Normal
    End Sub

    Private Sub Form1_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Resize
        If Me.WindowState = FormWindowState.Minimized Then
            Me.ShowInTaskbar = False
            Me.WindowState = FormWindowState.Minimized
            Me.NotifyIcon1.Visible = True
        End If
    End Sub