谢谢各位问题已经解决了，最后还是在VB程序里面加了API函数的代码，也是我在网上找到了，现在公布出来和大家分享。我现在已经决定先学习VB了。
Option Explicit
Public Sub CheckExist(fm As Form)
Dim title As String
If App.PrevInstance Then
title = App.title
App.title = ""
fm.Caption = ""
AppActivate title
End
End If
End Sub

Private Sub Form_Load()
Call CheckExist(Me)
End Sub