Public Sub Form_Load

   If App.PrevInstance Then
      MsgBox "This application is already running. Unable to start " & _
         "2 instances."
      End
   End If

End Sub