Private Sub Button1_Click(sender As Object, e As EventArgs) Handles _
   Button1.Click
        ProzesseJetztBeenden("Microsoft.Msn.Weather", True)
    End Sub
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles _
      Button2.Click
        ProzesseJetztBeenden("Microsoft.Msn.Weather", False)
    End Sub
    Private Sub ProzesseJetztBeenden(wert As String, Vorgang As Boolean)
        Try
            For Each prozess In Process.GetProcessesByName(wert)
                If Vorgang Then
                    prozess.CloseMainWindow()   ' ICON bleibt, bis auf klick.
                    ' If Prozess eine App dann Kill
                    ' Oder, Taskleiste aktualsieren
                    ' Oder, Objektname auslesen...
                Else
                    prozess.Kill()              ' ICON geht weg.
                End If
            Next
        Catch
        End Try
    End Sub