lia.aliya@hotmail.com
TOMBOL HITUNG
Private Sub Command1_Click()
If Option1.Value = True Then
Text3.Text = Text1.Text + Text2.Text * 1
Else
If Option2.Value = True Then
Text3.Text = Text1.Text - Text2.Text * 1
Else
If Option3.Value = True Then
Text3.Text = Text1.Text * Text2.Text * 1
Else
If Option4.Value = True Then
Text3.Text = Text1.Text / Text2.Text * 1
End If
End If
End If
End If
End Sub
TOMBOL HAPUS
Private Sub Command2_Click()
Text1.Text = " "
Text2.Text = " "
Text3.Text = " "
Text1.SetFocus
End Sub
TOMBOL KELUAR
Private Sub Command3_Click()
Unload Me
End Sub
