Form2(lanjutan)

Private Sub Command1_Click()
Label2.Caption = "nama saya " + Text1.Text + " angkatan " + Combo2.Text
If Combo1.Text = "P. Mat" Then
Label3.Caption = "Program Studi Pendidikan Matematika, S1"
ElseIf Combo1.Text = "Mat" Then
Label3.Caption = "Program Studi Matematika, S1"
Else
Label3.Caption = "Program Studi Statisitik Terapan dan Komputasi, S1 "
End If
If Option1.Value = True Then Label4.Caption = "Jenis Kelamin Laki-laki"
If Option2.Value = True Then Label4.Caption = "Jenis Kelamin Perempuan"
End Sub

Private Sub Command2_Click()
CommonDialog1.ShowOpen
Image1.Picture = LoadPicture(CommonDialog1.FileName)
End Sub

Private Sub Form_Load()
Label5.Caption = "Selamat Datang," + Form2.Text1.Text
End Sub