listing coba

Listing vb6 untuk memerintahkan tombol buton keluar dan lihat

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