Latihan 1

script:

Private Sub cmdkeluar_Click()
p = MsgBox("Anda yakin akan keluar", vbQuestion + vbOKCancel, "Informasi")
If p = vbOK Then
End
End If
End Sub


Private Sub cmdlihat_Click()
MsgBox "Nim anda adalah " + txtnim.Text
MsgBox "Nama anda adalah " + txtnama.Text
End Sub