As a simpler example (doesn't handle minimized windows etc.) try
Private Declare Function SetForegroundWindow Lib "user32" (ByVal hwnd As IntPtr) As Long
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim strPartialTitle As String = "Wind"
For Each pProcess As Process In Process.GetProcesses()
' check process' main window title
If pProcess.MainWindowTitle.StartsWith(strPartialTitle) Then
' it's a match
Dim strMsg As String = [string].Format("{0}", pProcess.MainWindowTitle)
'MessageBox.Show(pProcess.MainWindowHandle.ToStrin g)
SetForegroundWindow(pProcess.MainWindowHandle)
End If
Next
End Sub