求一段VB代码，进来帮帮助。

[gelinqu]

我的程序只有一个FORM，想程序实现
如果当前程序是已经开打的就不再打开，如果还没有打开的才打开。
求这个的代码，能实现我的要求的分全给提供者。

[fvflove]

Option Explicit

Private Sub Form_Load()
 If App.PrevInstance Then
    End
 End If
End Sub

[jhone99]

Private Sub Form_Load()
If App.PrevInstance = True Then
MsgBox "系统已启动，请按ALT+TAB键查找"
Unload Me
Exit Sub
End If



End Sub

[gelinqu]

谢谢两位热心人。可以了。