Belajar MS Visual Basic 6.0

Rumus dalam mengulangi

Text1.text = " " (sesuai dengan text yang anda buat)
Text2.text = " "
Text3.text = " "
Text4.text = " "
Text5.text = " "
Text6.text = " "
Text1.text.SetFocus

Program Jumlah

Harga = Val (text2.text)
Jumlah = Val (text3.text)
Total = harga * jumlah
text4.text = STR (total)


Program untuk kembalian

Bayar = Val (text5.text)
kembali = bayar - total
text6.text = STR (kembali)


Pemindahan arah panah

Private sub text1_keydown (diatur sebelum pengkodean sebelah kanan pojok atas)
IF KeyCode = 40 then
    Text2.Setfocus
End IF
End


Kode Tombol Keyboard

IF keycode = keycode then
Msg box = (keycode)
End IF
End