Private Sub Cmdexit_Click()
End
End Sub
Private Sub Cmdtampil_Click()
Dim ket As String
ket = "NIM : " + Txtnim.Text + Chr(13)
ket = ket + "Nama : " + Txtnama.Text + Chr(13)
ket = ket + "Alamat : " + Txtalamat.Text + Chr(13)
ket = ket + "No.Telp : " + Txttelp.Text
MsgBox ket, , "Identitas Diri"
End Sub
mie ayam
14 tahun yang lalu
0 komentar:
Posting Komentar