Program Aplikasi Pengurangan 2 Bilangan

Kode Program Tombol Hitung :
Private Sub cmdhitung_Click()
txthasil.Text = Val(txtnilaipertama.Text) - Val(txtnilaikedua.Text)
End Sub

Kode Program Tombol Hitung lagi :
Private Sub cmdhitunglagi_Click()
txtnilaipertama.Text = " "
txtnilaikedua.Text = " "
txtnilaiketiga.Text = " "
txthasil.Text = " "
txtnilaipertama.SetFocus
End Sub

Kode Program Tombol Selesai :
Private Sub cmdselesai_Click()
Unload Me
End Sub