Program Kalkulator Di Visual Basic 6.0

Berikut merupakan aplikasi kalkulator di Visual Basic 6.0 ya sebenarnya kalo masih sedikit seperti ini masih sama dengan Visual Basic .Net
siapkan dan rancang program seperit berikut

data diatas diberi nama denga variabel Text1, Text2, Combo1 dan Text3 dan Form1 he he

selanjutnya tambahkan code seperti berikut

Private Sub Command1_Click() If Combo1.Text = " + " Then Text3.Text = Val(Text1.Text) + Val(Text2.Text) MsgBox ("Hasil Dari Penjumlahan Adalah " & Text3.Text) ElseIf Combo1.Text = " - " Then Text3.Text = Val(Text1.Text) - Val(Text2.Text) MsgBox ("Hasil Dari pengurangan Adalah " & Text3.Text) ElseIf Combo1.Text = " * " Then Text3.Text = Val(Text1.Text) * Val(Text2.Text) MsgBox ("Hasil Dari Perkalian Adalah " & Text3.Text) ElseIf Combo1.Text = " / " Then Text3.Text = Val(Text1.Text) / Val(Text2.Text) MsgBox ("Hasil Dari Pembagian Adalah " & Text3.Text) End If Bersih End Sub Private Sub Command2_Click() Unload Me End Sub Sub Bersih() Text1.Text = "" Text2.Text = "" Text3.Text = "" Combo1.Text = "" End Sub Private Sub Form_Load() Combo1.AddItem (" + ") Combo1.AddItem (" - ") Combo1.AddItem (" * ") Combo1.AddItem (" / ") End Sub