Belajar Autodidak VB6
Dasar visual basic 6

Membuat Fungsi Perkalian

Pasang Toolbox pada form1

Textbox
- Text1
- Text2
- Text3

 CommandButton
- Command1

Label
-Label1
-Label2

Masuk ke VewCode

Private Sub Form_Load()
Text1 = ""
Text2 = ""
Text3 = ""
Label1.Caption = "x"
Label2.Caption = "="

End Sub

Function kali(a, b) As Integer
Text3 = a * b
End Function

Private Sub Command1_Click()
Call kali(Text1, Text2)
End Sub

Hasil Prevew



Semoga bermanfaat...