Pemograman Visual Pertemuan Pertama

Private Sub Command1_Click()
Dim tampil As String
tampil = "Masukan Nama Anda Adalah : " & Text1.Text & Chr(13)
If Option1.Value = True Then
tampil = tampil + "Jenis Kelamin : " & Option1.Caption & Chr(13)
Else
tampil = tampil + "Jenis Kelamin : " & Option2.Caption & Chr(13)
End If
tampil = tampil + "Agama : " & Combo1.Text & Chr(13)
MsgBox (tampil)
End Sub


Private Sub Command2_Click()
Unload Me
End Sub