Dim ps() As system.Diagnostics.Process = _
  system.Diagnostics.Process.GetProcesses
			For Each p as system.Diagnostics.Process In ps 
				If Not p.MainWindowTitle.trim = "" Then
					messagebox.Show(p.MainWindowTitle)
				End If				
			Next