home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 3_2004-2005.ISO / Data / Zips / COM_Detect18280412112004.psc / modMain.bas < prev    next >
BASIC Source File  |  2004-12-05  |  871b  |  30 lines
  1. Attribute VB_Name = "modMain"
  2. Option Explicit
  3.     'To use Balloon tips,Int Common Controls Lib
  4.     Private Declare Sub InitCommonControls Lib "comctl32.dll" ()
  5.  
  6. Sub Main()
  7.  
  8.     'Int Common Controls Lib for Balloon Tip use
  9.     InitCommonControls
  10.  
  11.     ' * Test to see if App is already running
  12.     ' * If App is running, terminate copy
  13.  
  14.         If App.PrevInstance Then
  15.             MsgBox "COM Detect application is already running" & vbCrLf & vbCrLf & _
  16.             "Only one instance (copy) of program this can be running" & vbCrLf & _
  17.             "for proper operation", vbInformation, "Application ERROR"
  18.             End
  19.         Else
  20.             '  MsgBox "This is the first instance of your application"
  21.             'Make main form visible
  22.             Load frmMain
  23.             frmMain.Visible = True
  24.             
  25.         End If
  26.  
  27. End Sub
  28.  
  29.  
  30.