Option Strict On
Imports System.Runtime.InteropServices
 
Public Class Form1
 
    Private Const APPCOMMAND_VOLUME_MUTE As Integer = &H80000
    Private Const APPCOMMAND_VOLUME_UP As Integer = &HA0000
    Private Const APPCOMMAND_VOLUME_DOWN As Integer = &H90000
    Private Const WM_APPCOMMAND As Integer = &H319
 
    <DllImport("user32.dll")> Public Shared Function SendMessageW(ByVal hWnd _
      As IntPtr, ByVal Msg As Integer, ByVal wParam As IntPtr, ByVal lParam As _
      IntPtr) As IntPtr
    End Function
 
    Dim HScroll3 As Integer = 0
    Dim Count As Integer = 0
 
    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles _
      Timer1.Tick
        If System.Diagnostics.Process.GetProcessesByName( _
        My.Settings.App).Length > 0 Then
            Label1.Text = "Ein" 
        Else
            Label1.Text = "Aus"
        End If
    End Sub
 
    Private Sub Label1_TextChanged(sender As Object, e As EventArgs) Handles _
      Label1.TextChanged
        If Label1.Text = "Ein" Then
            SendMessageW(Me.Handle, WM_APPCOMMAND, Me.Handle, New IntPtr( _
              APPCOMMAND_VOLUME_MUTE))
        Else
 
        End If
 
    End Sub
 
    Private Sub BeendenToolStripMenuItem_Click(sender As Object, e As EventArgs)
 
    End Sub
 
    Private Sub BearbeitenToolStripMenuItem_Click(sender As Object, e As _
      EventArgs)
 
    End Sub
 
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        TextBox1.Text = My.Settings.App
 
        WindowState = FormWindowState.Minimized
        ShowInTaskbar = False
    End Sub
 
    Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles _
      TextBox1.TextChanged
        My.Settings.App = TextBox1.Text
        My.Settings.Save()
        My.Settings.Reload()
    End Sub
 
    Private Sub CloseToolStripMenuItem_Click(sender As Object, e As EventArgs) _
      Handles CloseToolStripMenuItem.Click
        Me.Close()
    End Sub
 
    Private Sub ShowToolStripMenuItem_Click(sender As Object, e As EventArgs) _
      Handles ShowToolStripMenuItem.Click
        WindowState = FormWindowState.Normal
        Me.Show()
    End Sub
 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles _
      Button1.Click
        SendMessageW(Me.Handle, WM_APPCOMMAND, Me.Handle, New IntPtr( _
        APPCOMMAND_VOLUME_MUTE))
    End Sub
 
 
End Class