Private Sub Command1_Click()
Text3 = Val(Text1) + Val(Text2)
End Sub
Private Sub Command2_Click()
Text1 = ""
Text2 = ""
Text3 = ""
Text1.SetFocus
End Sub
Private Sub Command3_Click()
Unload Me
End Sub
Langganan:
Posting Komentar (Atom)
tugas 6 pengolahan citra
Nama : Ayunda Mugiarsih Kelas : Line 1 TKJ NPM : 17100024 Tugas 6 Gamabar hasil Penjelasan Cgreyscale adalah suatu ci...
-
Private Sub cmdbatal_Click() txtn1 = "" txtn2 = "" txtn3 = "" txtn4 = "" txtn5 = &... -
Private Sub chkb_Click() If chkb.Value = 1 Then lbl1.FontBold = True Else lbl1.FontBold = False End If End Sub Private Sub chki_Click() ...
Tidak ada komentar:
Posting Komentar