Alat hitung sederhana dengan VB6

hiihi lagi gak ada kerjaan  nie coba coba bikin alat hitung sederhana menggunakan VB6
, untuk pertama coba bikin form seperti gambar berikut

name	property	nilai
form1	name	form1
	caption	form1
text1	name	text1
combo1	name	combo1
	text	pilih
	list	-
		+
		x
label1	name	label1
	caption	jumlah
command1	name	command1
	caption	proses
command2	name	command2
	caption	reset
command3	name	command3
	caption	keluar

selanjutnya masukan script di bawah ini:

Private Sub Command1_Click()

Dim awal As Integer
Dim akhir As Integer
Dim masukan As String


awal = Text1.Text
akhir = Text3.Text
masukan = Combo1.Text

 disini saya menggunakan perintah If untuk memilih operator perhitungan

    If masukan = "+" Then
        Label1.Caption = awal + akhir
    ElseIf masukan = "x" Then
        Label1.Caption = awal * akhir
    ElseIf masukan = "-" Then
        Label1.Caption = awal - akhir
    Else
        Label1.Caption = awal / akhir
    End If
End Sub

perintah di bawah merupakan perintah untuk mengosongkan form

Private Sub Command2_Click()
Text1.Text = " "
Combo1.Text = " "
Text3.Text = " "
End Sub

perintah di bawah merupakan perintah untuk keluar dari program

Private Sub Command3_Click()
Unload Me
End Sub

selesai deh