Category : BASIC Source Code
Archive   : VINST8.ZIP
Filename : STATUS.FRM

VERSION 2.00
Begin Form StatusDlg
AutoRedraw = -1 'True
BackColor = &H00C0C0C0&
BorderStyle = 1 'Fixed Single
Caption = "StatusDlg"
ClipControls = 0 'False
ControlBox = 0 'False
Height = 2805
Left = 120
LinkTopic = " "
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 2400
ScaleWidth = 4860
Top = 240
Width = 4980
Begin PictureBox Picture1
AutoRedraw = -1 'True
BorderStyle = 0 'None
Height = 255
Left = 300
ScaleHeight = 255
ScaleWidth = 4455
TabIndex = 0
Top = 2910
Width = 4455
End
Begin CommandButton Cmd_Cancel
Caption = "Cancel"
Height = 375
Left = 1800
TabIndex = 6
Top = 1860
Width = 1005
End
Begin PictureBox InvisGauge
AutoRedraw = -1 'True
BackColor = &H00FF0000&
ForeColor = &H00FFFFFF&
Height = 255
Left = 120
ScaleHeight = 225
ScaleWidth = 4545
TabIndex = 5
Top = 1680
Visible = 0 'False
Width = 4575
End
Begin PictureBox Gauge
AutoRedraw = -1 'True
BackColor = &H00FFFFFF&
ForeColor = &H00000000&
Height = 255
Left = 120
ScaleHeight = 225
ScaleWidth = 4545
TabIndex = 1
Top = 1440
Width = 4575
End
Begin Label total
Caption = "Total"
Height = 255
Left = 240
TabIndex = 4
Top = 2760
Visible = 0 'False
Width = 855
End
Begin Label Label2
BackColor = &H00C0C0C0&
ForeColor = &H00FF0000&
Height = 495
Left = 240
TabIndex = 3
Top = 720
Width = 4335
End
Begin Label Label1
BackColor = &H00C0C0C0&
ForeColor = &H00FF0000&
Height = 495
Left = 240
TabIndex = 2
Top = 270
Width = 4455
End
End
DefInt A-Z

Option Explicit

Sub Cmd_Cancel_Click ()
gCancelCommand% = True
End Sub

Sub Form_Load ()
BackColor = RGB(BKGNDGRAY, BKGNDGRAY, BKGNDGRAY)
gFrameWidth% = DEFAULTWIDTH

' -----------------------------------------------------
' Set fonts based on Windows version
' -----------------------------------------------------
On Error Resume Next
StatusDlg.FontName = gFontName$
Me.Cmd_Cancel.FontName = gFontName$
Me.Label1.FontName = gFontName$
Me.Label2.FontName = gFontName$
Me.total.FontName = gFontName$
Me.Label1.Refresh
Me.Label2.Refresh
On Error GoTo 0

DoEvents

End Sub