Program Biodata

-->

Private Sub Command1_Click()

Label2.Caption = "Nama Anda :" & Text1.Text

If Text1.Text = "" Then

MsgBox "ANDA BELUM MENGISI NAMA"

Load Me

End If

If Option1.Value = True Then

Label3.Caption = "Jenis Kelamin : " & Option1.Caption

Else

Label3.Caption = "Jenis Kelamin : " & Option2.Caption

End If

If Option1.Value = False Then

MsgBox "ANDA BELUM MEMILIH JENIS KELAMIN!"

Load Me

End If

Label4.Caption = "Agama : " & Combo1.Text

If Combo1.Text = "" Then

MsgBox "ANDA BELUM MEMILIH AGAMA!"

Load Me

End If

If Frame5.Visible = False Then

Frame5.Visible = True

End If

End Sub

Private Sub Frame5_DragDrop(Source As Control, X As Single, Y As Single)

Frame5.Visible = False

End Sub

Private Sub Option1_Click()

Option1.Enabled = True

End Sub

Private Sub Option2_Click()

Option1.Enabled = True

End Sub

Tampilan Form :