From Biodata Dasar-Dasar Visual Basic

CONTOH GAMBAR




LISTINGAN

Private Sub cmdinput_Click()
txtktp: txtktp.Text = ""
txtnama: txtnama.Text = ""
optlaki: optlaki.Value = False
optwanita: optwanita.Value = False
cbagama: cbagama.Text = ""

End Sub

Private Sub cmdkeluar_Click()
p = MsgBox("Keluar", vbYesNo, "Informasi")
If p = vbYes Then
End
End If
End Sub

SELAMAT MENCOBA