home *** CD-ROM | disk | FTP | other *** search
/ The Elite Hackers Toolkit / TheEliteHackersToolkitVolume1_1998.rar / HACKERS.BIN / appcraks / TIMER.ZIP / FORM1.FRM next >
Text File  |  1997-11-12  |  3KB  |  105 lines
  1. VERSION 5.00
  2. Begin VB.Form Form1 
  3.    Caption         =   "Multimedia-Timer"
  4.    ClientHeight    =   3444
  5.    ClientLeft      =   3552
  6.    ClientTop       =   1476
  7.    ClientWidth     =   7440
  8.    LinkTopic       =   "Form1"
  9.    ScaleHeight     =   3444
  10.    ScaleWidth      =   7440
  11.    Begin VB.Frame Frame2 
  12.       Caption         =   "Multimedia-Timer"
  13.       Height          =   1335
  14.       Left            =   120
  15.       TabIndex        =   3
  16.       Top             =   1680
  17.       Width           =   4575
  18.       Begin VB.Label Label2 
  19.          Alignment       =   2  'Center
  20.          BackColor       =   &H00000000&
  21.          Caption         =   "Multimedia:"
  22.          BeginProperty Font 
  23.             Name            =   "System"
  24.             Size            =   9.6
  25.             Charset         =   0
  26.             Weight          =   700
  27.             Underline       =   0   'False
  28.             Italic          =   0   'False
  29.             Strikethrough   =   0   'False
  30.          EndProperty
  31.          ForeColor       =   &H0000FF00&
  32.          Height          =   375
  33.          Left            =   1080
  34.          TabIndex        =   4
  35.          Top             =   480
  36.          Width           =   2055
  37.       End
  38.    End
  39.    Begin VB.Frame Frame1 
  40.       Caption         =   "VB-Timer"
  41.       Height          =   1335
  42.       Left            =   120
  43.       TabIndex        =   1
  44.       Top             =   120
  45.       Width           =   4575
  46.       Begin VB.Timer Timer1 
  47.          Interval        =   100
  48.          Left            =   240
  49.          Top             =   480
  50.       End
  51.       Begin VB.Label Label1 
  52.          Alignment       =   2  'Center
  53.          BackColor       =   &H00000000&
  54.          Caption         =   "VB-Timer:"
  55.          BeginProperty Font 
  56.             Name            =   "System"
  57.             Size            =   9.6
  58.             Charset         =   0
  59.             Weight          =   700
  60.             Underline       =   0   'False
  61.             Italic          =   0   'False
  62.             Strikethrough   =   0   'False
  63.          EndProperty
  64.          ForeColor       =   &H0000FF00&
  65.          Height          =   375
  66.          Left            =   1080
  67.          TabIndex        =   2
  68.          Top             =   480
  69.          Width           =   2055
  70.       End
  71.    End
  72.    Begin VB.CommandButton Command1 
  73.       Caption         =   "Show Modal Form"
  74.       Height          =   615
  75.       Left            =   4920
  76.       TabIndex        =   0
  77.       Top             =   240
  78.       Width           =   2055
  79.    End
  80. End
  81. Attribute VB_Name = "Form1"
  82. Attribute VB_GlobalNameSpace = False
  83. Attribute VB_Creatable = False
  84. Attribute VB_PredeclaredId = True
  85. Attribute VB_Exposed = False
  86.  
  87. Private Sub Command1_Click()
  88.     MsgBox "Look at the VB-Timer please!"
  89. End Sub
  90.  
  91. Private Sub Form_Load()
  92.     Show
  93.     FID = timeSetEvent(100, 0, AddressOf TimeCallback, 0, TIME_PERIODIC)
  94. End Sub
  95.  
  96. Private Sub Form_Unload(Cancel As Integer)
  97.     If FID <> 0 Then timeKillEvent FID
  98. End Sub
  99.  
  100. Private Sub Timer1_Timer()
  101. Static i&
  102.     i = i + 1
  103.     Label1.Caption = i
  104. End Sub
  105.