
lalu copy script dibawah ini :
Dim a, b As Integer
Private Sub Command1_Click()
a = Val(Text1.Text)
b = Val(Text2.Text)
Label1.Caption = a + b
End Sub
Private Sub Command2_Click()
a = Val(Text1.Text)
b = Val(Text2.Text)
Label1.Caption = a - b
End Sub
Private Sub Text2_Change()
End Sub
nah, semoga berhasil, dan selamat mencoba................
hhe :)
kasih commenntnya iya......
Tidak ada komentar:
Posting Komentar