Program Vb pertamaku

ok gan,, skrg saya mau posting materi VB pertama yang saya dapatkan di kampus... ini codingnya...


Private Sub Command1_Click()
Label2.Caption = "Nama      :"
Label2.ForeColor = vbRed
Label2.FontSize = 16
Label2.BackStyle = Transparent


Label3.Caption = "Kelas          :"
Label3.ForeColor = vbRed
Label3.FontSize = 16
Label3.BackStyle = Transparent

Label4.Caption = "Stambuk      :"
Label4.ForeColor = vbRed
Label4.FontSize = 16
Label4.BackStyle = Transparent

Label5.Caption = "Jurusan      :"
Label5.ForeColor = vbRed
Label5.FontSize = 16
Label5.BackStyle = Transparent

Label6.Caption = "Fakultas      :"
Label6.ForeColor = vbRed
Label6.FontSize = 16
Label6.BackStyle = Transparent

Label7.Caption = "Tempat/tgl lahir:"
Label7.ForeColor = vbRed
Label7.FontSize = 16
Label7.BackStyle = Transparent

Label8.Caption = "Alamat      :"
Label8.ForeColor = vbRed
Label8.FontSize = 16
Label8.BackStyle = Transparent

Text1.Text = "Robby Kurniawan"
Text1.FontSize = 16
Text1.BackColor = vbRed

Text2.Text = "FK - 12"
Text2.FontSize = 16
Text2.BackColor = vbRed

Text3.Text = "12.1401.219"
Text3.FontSize = 16
Text3.BackColor = vbRed

Text4.Text = "Teknik Informatika"
Text4.FontSize = 16
Text4.BackColor = vbRed

Text5.Text = "Ilmu Komputer"
Text5.FontSize = 16
Text5.BackColor = vbRed

Text6.Text = "Bulukumba/27 Sept 95"
Text6.FontSize = 16
Text6.BackColor = vbRed

Text7.Text = "Jln. Sultan Alauddin II"
Text7.FontSize = 16
Text7.BackColor = vbRed

End Sub

Private Sub Command2_Click()
MsgBox "Anda Yakin"
Unload Me
End
End Sub

BEFORE

 

AFTER