Private Sub Form1_FormClosing(ByVal sender As Object, _
ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        Me.NotifyIcon1.Icon = Nothing
End Sub

Public Sub TraySchliessen()
 
        Dim Proc As Process, Processes() As Process
        Processes = Process.GetProcessesByName("Systemtray")
        For Each Proc In Processes
            Proc.CloseMainWindow()
            'Proc.Close()
        Next
 
End Sub

Proc.CloseMainWindow()

Proc.Close()

Proc.Kill()