Private Sub Button1_Click(sender As Object, e As EventArgs) Handles _
  Button1.Click
        For Each prozlist As Process In Process.GetProcesses
            If prozlist.MainWindowTitle <> "" Then
 
                Try
                    Me.ListBox1.Items.Add(prozlist.MainModule.FileName.ToLower)
                Catch ex As Exception
                    MsgBox(ex.Message)
                End Try
 
            End If
        Next
    End Sub