home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / vbfast / form1.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1995-05-08  |  1.1 KB  |  36 lines
  1. VERSION 2.00
  2. Begin Form Form1 
  3.    BorderStyle     =   0  'None
  4.    Caption         =   "Messages"
  5.    ClientHeight    =   1230
  6.    ClientLeft      =   8385
  7.    ClientTop       =   7410
  8.    ClientWidth     =   2190
  9.    ControlBox      =   0   'False
  10.    Height          =   1635
  11.    Icon            =   FORM1.FRX:0000
  12.    Left            =   8325
  13.    LinkMode        =   1  'Source
  14.    LinkTopic       =   "Form1"
  15.    MaxButton       =   0   'False
  16.    MinButton       =   0   'False
  17.    ScaleHeight     =   1230
  18.    ScaleWidth      =   2190
  19.    Top             =   7065
  20.    Width           =   2310
  21. Sub Form_Load ()
  22.     Dim InstanceCount As Integer
  23.     If GetModuleUsage(GetModuleHandle("VBFAST.EXE")) > 1 Then
  24.        MsgBox "You already have a copy of this program running.", 48
  25.        End
  26.     End If
  27.     WINDOWSTATE = 1  'Make it a icon
  28.     form1.visible = 0
  29. End Sub
  30. Sub Form_Resize ()
  31. '    If WINDOWSTATE = 0 Then    'Pgm made normal size
  32. '       WINDOWSTATE = 1
  33. '       MsgBox "VBFast version 1.0" + Chr$(13) + Chr$(10) + "A Visual Basic enhancer."
  34. '    End If
  35. End Sub
  36.