Visual Basic - Login Dan Program Sederhana

=====================================>
//Untuk Form1 . Buatlah tampilan seperti di bawah ini. =====================================>

//Script pada Form1. Memberi keterangan pada Label, Command, Form1, dan warna background pada Form1.

----------------------------------------------------------------------------------------------

Private Sub Form_Load()
Label1.Caption = "Username"
Label2.Caption = "Password"
Command1.Caption = "Ok"
Label3.Caption = " PLEASE LOGIN FIRST"
Form1.BackColor = vbBlue
End Sub

----------------------------------------------------------------------------------------------

// Script pada Command. Untuk Melakukan proses Login.

----------------------------------------------------------------------------------------------

Private Sub Command1_Click()
If Text1.Text = "1IA26" And Text2.Text = "BRILLIANT" Then
MsgBox "1IA26", 3, "WELCOME GUYS"
Unload Me
Form2.Show

 Else: MsgBox "WRONG USERNAME OR PASSWORD", 3, "PLEASE, TRY AGAIN GUYS"
 End

End If
End Sub

----------------------------------------------------------------------------------------------

// Untuk Form2. buatlah seperti di bawah ini.

----------------------------------------------------------------------------------------------

// Script pada Form2.

----------------------------------------------------------------------------------------------

Private Sub Form_Load()
Label1.Caption = "Nama"
Label1.FontSize = 14
Label2.Caption = "NPM"
Label2.FontSize = 14
Label3.Caption = ""
Text1.Text = ""
Text2.Text = ""
Command1.Caption = "Ok"
Label4.Caption = "INSERT YOUR NAME AND NPM"
Form2.BackColor = vbGreen

End Sub

----------------------------------------------------------------------------------------------

//Script pada Command1 Form2.

----------------------------------------------------------------------------------------------

Private Sub Command1_Click()
Label3.Caption = "Hai, Guys... Nama saya adalah " + Text1.Text & vbCrLf + " NPM saya " + Text2.Text End Sub

----------------------------------------------------------------------------------------------

// Script pada Option1

----------------------------------------------------------------------------------------------

Private Sub Option1_Click() Label3.ForeColor = vbBlue End Sub 
----------------------------------------------------------------------------------------------

// Script pada Option2 

----------------------------------------------------------------------------------------------

Private Sub Option2_Click()
Label3.ForeColor = vbRed

End Sub

----------------------------------------------------------------------------------------------

// Script pada Option3

----------------------------------------------------------------------------------------------

Private Sub Option3_Click()
Label3.FontItalic = True
Label3.FontBold = False
Label3.FontUnderline = False
End Sub

----------------------------------------------------------------------------------------------

// Script pada Option4 

----------------------------------------------------------------------------------------------

Private Sub Option4_Click()
Label3.FontItalic = False
Label3.FontBold = True
Label3.FontUnderline = False
End Sub

----------------------------------------------------------------------------------------------

// Script pada Option5

----------------------------------------------------------------------------------------------

Private Sub Option5_Click()

Label3.FontItalic = False
Label3.FontBold = False
Label3.FontUnderline = True
End Sub

----------------------------------------------------------------------------------------------