主题：外部程序获得焦点

 Dim ch As Boolean
ch = False
Dim ps As System.Diagnostics.Process() = System.Diagnostics.Process.GetProcesses()
For Each p As System.Diagnostics.Process In ps
    If ("dlgpy" = p.ProcessName) Then
        Exit For
    End If
Next
If ch = False Then
    Dim Proc As New Process '定义一个新的Process
    proc.StartInfo.FileName = "C:\Program Files\dlgpy\dlgpy.exe"
    proc.StartInfo.UseShellExecute = False
    Proc.StartInfo.WorkingDirectory = "C:\Program Files\dlgpy"
    Proc.Start()
   
End If

试试：http://www.foxtable.com/webhelp/topics/2713.htm