You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
76 lines
2.2 KiB
76 lines
2.2 KiB
VERSION 5.00
|
|
Begin VB.Form frmPause
|
|
BorderStyle = 3 'Fixed Dialog
|
|
Caption = "Pausing..."
|
|
ClientHeight = 1215
|
|
ClientLeft = 45
|
|
ClientTop = 330
|
|
ClientWidth = 3135
|
|
Icon = "frmPause.frx":0000
|
|
LinkTopic = "Form1"
|
|
MaxButton = 0 'False
|
|
MinButton = 0 'False
|
|
ScaleHeight = 1215
|
|
ScaleWidth = 3135
|
|
ShowInTaskbar = 0 'False
|
|
StartUpPosition = 1 'CenterOwner
|
|
Begin VB.Timer Timer1
|
|
Interval = 5000
|
|
Left = 2640
|
|
Top = 120
|
|
End
|
|
Begin VB.CommandButton Command1
|
|
Cancel = -1 'True
|
|
Caption = "Stop the Test"
|
|
Default = -1 'True
|
|
BeginProperty Font
|
|
Name = "MS Sans Serif"
|
|
Size = 8.25
|
|
Charset = 0
|
|
Weight = 700
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 555
|
|
Left = 240
|
|
TabIndex = 1
|
|
Top = 600
|
|
Width = 2655
|
|
End
|
|
Begin VB.Label Label1
|
|
Alignment = 2 'Center
|
|
AutoSize = -1 'True
|
|
Caption = "Pausing for 5 seconds..."
|
|
BeginProperty Font
|
|
Name = "MS Sans Serif"
|
|
Size = 8.25
|
|
Charset = 0
|
|
Weight = 700
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 195
|
|
Left = 60
|
|
TabIndex = 0
|
|
Top = 120
|
|
Width = 3045
|
|
End
|
|
End
|
|
Attribute VB_Name = "frmPause"
|
|
Attribute VB_GlobalNameSpace = False
|
|
Attribute VB_Creatable = False
|
|
Attribute VB_PredeclaredId = True
|
|
Attribute VB_Exposed = False
|
|
Option Explicit
|
|
|
|
Private Sub Command1_Click()
|
|
frmMain.canceled = True
|
|
Unload Me
|
|
End Sub
|
|
|
|
Private Sub Timer1_Timer()
|
|
Unload Me
|
|
End Sub
|
|
|