Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) _
  Handles Button1.Click
    Dim p As Process
    For Each p In Diagnostics.Process.GetProcesses
        If p.ProcessName = "woodWOP" Then
            Label1.Text = "Das Programm " & p.ProcessName.ToString & " läuft" & _
              "bereits!" & vbCrLf & _
                           p.MainWindowTitle.ToString
 
            '---Anzeige des Dateipfades??????
 
        ElseIf p.ProcessName = "" Then
            Label1.Text = "Das Programm WoodWop wurde noch nicht gestartet!"
        End If
    Next
End Sub

mfg.

Dirk