Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Integer
Private Declare Function BringWindowToTop Lib "user32" (ByVal hwnd As Long) As Integer
'这里SciCalc是计算器的窗口类名
Dim hCalcWnd As Integer = FindWindow("SciCalc", "计算器")
If hCalcWnd = 0 Then
Shell("calc.exe", AppWinStyle.NormalFocus)
Else
BringWindowToTop(hCalcWnd)
End If