Introduction Form

Listing Program :

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