by chatbackMAKEWAR (computer nerd) (1 Submission)
Category: Custom Controls/Forms/Menus
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Sat 14th June 2003
Date Added: Mon 8th February 2021
Rating: 
(1 Votes)
make a calculator
VBcoders
Private Sub Command1_Click()
If Timer2.Enabled = True Then
Timer2.Enabled = False
Command1.Caption = "Start"
Else
Timer2.Enabled = True
Command1.Caption = "Stop"
End If
End Sub
Private Sub Command2_Click()
Form1.Show
Me.Hide
End Sub
Private Sub Command3_Click()
Form1.Show
Me.Hide
End Sub
Private Sub Form_Load()
Me.Top = 0
Me.Left = 0
form2 =
Private Sub Command1_Click()
X = MsgBox("do u need help with using the calculator", vbYesNo, "help")
If X = vbYes Then
MsgBox " click options and choose a equation", vbOKOnly, "help"
MsgBox "type in 2 numbers above the red box then click equals", vbOKOnly, "help"
MsgBox " an answer would came up in the red box if not see a doctor", vbOKOnly, "help"
ElseIf X = vbNo Then
MsgBox " well i cant help ya", vbOKOnly, "help"
End If
X = MsgBox("do u understand", vbYesNo, "help")
If X = vbYes Then
MsgBox " ok then", vbOKOnly, "help"
ElseIf X = vbNo Then
MsgBox "ok ill repeat it", vbOKOnly, "help"
MsgBox " click options and choose a equation", vbOKOnly, "help"
MsgBox "type in 2 numbers above the red box then click equals", vbOKOnly, "help"
MsgBox " an answer would came up in the red box if not see a doctor", vbOKOnly, "help"
End If
form3
Private Sub Command1_Click()
Form1.Show
Form2.Hide
End Sub
Private Sub Command2_Click()
Form1.Show
Form2.Hide
End Sub
Private Sub Command3_Click()
Form1.Show
Form2.Hide
End Sub
Private Sub Form_Click()
Form1.text1 = ""
Form1.text1 = ""
Form1.Label1 = "answer"
Form1.Show
Form2.Hide
form4=
Private Sub Dir1_Change()
MsgBox "sorry i have no idea what you can open", vbCritical, "ERROR"
End Sub
Private Sub Dir1_Click()
MsgBox "sorry i have no idea what you can open", vbCritical, " ERROR"
End Sub
form5
Private Sub Command1_Click()
Form1.Show
Form4.Hide
End Sub
Private Sub Command2_Click()
Form1.Show
Form4.Hide
End Sub
Private Sub Command3_Click()
Form1.Show
Form4.Hide
End Sub
Private Sub Form_Click()
Form1.Show
Form4.Hide
End Sub
Private Sub Form_Load()
Me.Left = 0
Me.Top = 0