home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / CODE_UPLOAD7354712000.psc / Dialer.bas next >
Encoding:
BASIC Source File  |  2000-07-02  |  288 b   |  17 lines
  1. Attribute VB_Name = "Module1"
  2. Option Explicit
  3.  
  4. Public TITLE As String
  5.  
  6. Public Sub Main()
  7.  
  8.       TITLE = "Dialer - Version "
  9.       If App.PrevInstance Then
  10.          AppActivate TITLE, 0
  11.          End
  12.       End If
  13.       Load frmDial
  14.       DoEvents
  15.       frmDial.Show
  16. End Sub
  17.