VBÔõÑùÅжϡ¢·ÀÖ¹³ÌÐòÖظ´Ö´ÐÐ

Private Sub Form_load()
    'ÅжϳÌÐòÊÇ·ñÒѾ­ÔËÐÐ
    If App.PrevInstance
Then
     MsgBox "±¾³ÌÐòÒѾ­ÔËÐУ¡", vbInformation Or vbOKOnly, "ÌáʾÐÅÏ¢"
     Unload
Me
     Exit Sub
    End If
    'ÒÔÏÂÊÇÖ÷Òª³ÌÐò
    ' ……
    End
Sub
    ¸½£ºÁíÒ»¸öÀý×Ó£º
    Option Explicit
    Public Sub CheckExist(fm
As Form) '·ÀÖ¹³ÌÐòÖظ´Ö´ÐÐ
      Dim title As String
      If App.PrevInstance
Then
      title = App.title
      Call MsgBox("Õâ³ÌÐòÒÑÖ´ÐÐ",
vbCritical)
      App.title = "" 'Èç´Ë²Å²»»á Avtivate µ½×Ô¼º
      fm.Caption =
""
      AppActivate title 'activate ÏÈÇ°¾ÍÒÑÔËÐеijÌÐò
      End ' ½áÊø
      End
If
    End Sub
    Private Sub Form_Load()
     Call
CheckExist(Me)
    End Sub