Kalkulator Sederhana Visual Basic 6

Visual Basic 6 - Fungsi Operator 

Listing Code :

Private Sub Command1_Click()
Text4.Text = Val(Text2.Text) + Val(Text3.Text)
End Sub

Private Sub Command2_Click()
Text4.Text = Val(Text2.Text) - Val(Text3.Text)
End Sub

Private Sub Command3_Click()
Text4.Text = Val(Text2.Text) / Val(Text3.Text)
End Sub

Private Sub Command4_Click()
Text4.Text = Val(Text2.Text) * Val(Text3.Text)
End Sub

Private Sub Command5_Click()
Dim a As String
a = MsgBox("Yakin arep metu ? ", vbQuestion + vbOKCancel, "Penting kie !!!")
If a = vbOK Then
End
End If
End Sub