If App.PrevInstance ThenMsgBox "程序已运行", vbExclamation + vbOKOnly, "操作提示"EndEndIf

好象试过,但我这程序运行后,最小化或隐藏后,就不会激活窗口到显示,点击没反应

用下面代码,第二次运行时,FORM1窗口没有显示出来,点击无反应.第一次运行后窗口隐藏成托盘图标,第二次没反应

Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Declare Function SetForegroundWindow Lib "user32" (ByVal hwnd As Long) As Long

Sub Main()
    If App.PrevInstance Then
        'Form1 为你程序主窗口标题,不要和别的程序一样
        SetForegroundWindow FindWindow(vbNullString, App.Title)
    Else
        Form1.Show
    End If
End Sub

谢谢,这种方法可行,已解决