• Home
 · 
• Custom Controls/Forms/Menus
 · 
• make a calculator

make a calculator

make a calculator

Rate make a calculator

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

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