Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- ' Main Form
- Private Sub About_Click()
- If About.Value = vbChecked Then
- About.Value = vbUnchecked
- Exit Sub
- End If
- Unload Me
- AboutPage.Visible = True
- End Sub
- Private Sub ExitBut_Click()
- If ExitBut.Value = vbChecked Then
- ExitBut.Value = vbUnchecked
- Exit Sub
- End If
- End
- End Sub
- Private Sub SettingsBut_Click()
- If SettingsBut.Value = vbChecked Then
- SettingsBut.Value = vbUnchecked
- Exit Sub
- End If
- Unload Me
- setasd.Visible = True
- End Sub
- Private Sub Form_Click()
- Text.Text = "ENTER NAME"
- Text.Enabled = False
- Text.Enabled = True
- End Sub
- Private Sub Image1_Click()
- Text.Text = "ENTER NAME"
- Text.Enabled = False
- Text.Enabled = True
- End Sub
- Private Sub Image2_Click()
- Text.Text = "ENTER NAME"
- Text.Enabled = False
- Text.Enabled = True
- End Sub
- Private Sub Image3_Click()
- Text.Text = "ENTER NAME"
- Text.Enabled = False
- Text.Enabled = True
- End Sub
- Private Sub Search_Click()
- If Search.Value = vbChecked Then
- Search.Value = vbUnchecked
- Exit Sub
- End If
- If Text.Text = "nicholai" Then
- Unload Me
- Nicholai.Visible = True
- ElseIf Text.Text = "nicholai silva" Then
- Unload Me
- Nicholai.Visible = True
- ElseIf Text.Text = "silva" Then
- Unload Me
- Nicholai.Visible = True
- ElseIf Text.Text = "carlos" Then
- Unload Me
- Carlos.Visible = True
- ElseIf Text.Text = "carlos villanueva" Then
- Unload Me
- Carlos.Visible = True
- ElseIf Text.Text = "villanueva" Then
- Unload Me
- Carlos.Visible = True
- ElseIf Text.Text = "gabriel" Then
- Unload Me
- Gabriel.Visible = True
- ElseIf Text.Text = "gabriel garcia" Then
- Unload Me
- Gabriel.Visible = True
- ElseIf Text.Text = "garcia" Then
- Unload Me
- Gabriel.Visible = True
- ElseIf Text.Text = "aspen" Then
- Unload Me
- Aspen.Visible = True
- ElseIf Text.Text = "aspen fernandez" Then
- Unload Me
- Aspen.Visible = True
- ElseIf Text.Text = "fernandez" Then
- Unload Me
- Aspen.Visible = True
- ElseIf Text.Text = "eugene" Then
- Unload Me
- Eugene.Visible = True
- ElseIf Text.Text = "eugene sufrir" Then
- Unload Me
- Eugene.Visible = True
- ElseIf Text.Text = "sufrir" Then
- Unload Me
- Eugene.Visible = True
- ElseIf Text.Text = "adrian" Then
- Unload Me
- Adrian.Visible = True
- ElseIf Text.Text = "adrian fabay" Then
- Unload Me
- Adrian.Visible = True
- ElseIf Text.Text = "fabay" Then
- Unload Me
- Adrian.Visible = True
- ElseIf Text.Text = "andrei" Then
- Unload Me
- Andrei.Visible = True
- ElseIf Text.Text = "andrei go" Then
- Unload Me
- Andrei.Visible = True
- ElseIf Text.Text = "go" Then
- Unload Me
- Andrei.Visible = True
- ElseIf Text.Text = "maria" Then
- Unload Me
- Rafi.Visible = True
- ElseIf Text.Text = "maria ang" Then
- Unload Me
- Rafi.Visible = True
- ElseIf Text.Text = "ang" Then
- Unload Me
- Rafi.Visible = True
- ElseIf Text.Text = "rafaella" Then
- Unload Me
- Rafi.Visible = True
- ElseIf Text.Text = "rafaella ang" Then
- Unload Me
- Rafi.Visible = True
- ElseIf Text.Text = "rafi" Then
- Unload Me
- Rafi.Visible = True
- ElseIf Text.Text = "rafi ang" Then
- Unload Me
- Rafi.Visible = True
- ElseIf Text.Text = "dennese" Then
- Unload Me
- Dennese.Visible = True
- ElseIf Text.Text = "dennese corpuz" Then
- Unload Me
- Dennese.Visible = True
- ElseIf Text.Text = "corpuz" Then
- Unload Me
- Dennese.Visible = True
- ElseIf Text.Text = "keziah" Then
- Unload Me
- Dennese.Visible = True
- ElseIf Text.Text = "keziah corpuz" Then
- Unload Me
- Dennese.Visible = True
- ElseIf Text.Text = "amado" Then
- Unload Me
- Amado.Visible = True
- ElseIf Text.Text = "amado claros" Then
- Unload Me
- Amado.Visible = True
- ElseIf Text.Text = "claros" Then
- Unload Me
- Amado.Visible = True
- ElseIf Text.Text = "ac" Then
- Unload Me
- Amado.Visible = True
- ElseIf Text.Text = "ac claros" Then
- Unload Me
- Amado.Visible = True
- ElseIf Text.Text = "koji" Then
- Unload Me
- Koji.Visible = True
- ElseIf Text.Text = "koji takeuchi" Then
- Unload Me
- Koji.Visible = True
- ElseIf Text.Text = "takeuchi" Then
- Unload Me
- Koji.Visible = True
- ElseIf Text.Text = "svertsen" Then
- Unload Me
- Svertsen.Visible = True
- ElseIf Text.Text = "svertsen merciales" Then
- Unload Me
- Svertsen.Visible = True
- ElseIf Text.Text = "merciales" Then
- Unload Me
- Svertsen.Visible = True
- ElseIf Text.Text = "svert" Then
- Unload Me
- Svertsen.Visible = True
- ElseIf Text.Text = "carl" Then
- Unload Me
- Carl.Visible = True
- ElseIf Text.Text = "carl siscar" Then
- Unload Me
- Carl.Visible = True
- ElseIf Text.Text = "siscar" Then
- Unload Me
- Carl.Visible = True
- ElseIf Text.Text = "margarita" Then
- Unload Me
- Marga.Visible = True
- ElseIf Text.Text = "margarita leong" Then
- Unload Me
- Marga.Visible = True
- ElseIf Text.Text = "leong" Then
- Unload Me
- Marga.Visible = True
- ElseIf Text.Text = "marga" Then
- Unload Me
- Marga.Visible = True
- ElseIf Text.Text = "marga leong" Then
- Unload Me
- Marga.Visible = True
- ElseIf Text.Text = "alyssa" Then
- Unload Me
- Alyssa.Visible = True
- ElseIf Text.Text = "alyssa enero" Then
- Unload Me
- Alyssa.Visible = True
- ElseIf Text.Text = "enero" Then
- Unload Me
- Alyssa.Visible = True
- ElseIf Text.Text = "ashley" Then
- Unload Me
- Ashley.Visible = True
- ElseIf Text.Text = "ashley cacanindin" Then
- Unload Me
- Ashley.Visible = True
- ElseIf Text.Text = "cacanindin" Then
- Unload Me
- Ashley.Visible = True
- ElseIf Text.Text = "charles" Then
- Unload Me
- Charles.Visible = True
- ElseIf Text.Text = "charles navela" Then
- Unload Me
- Charles.Visible = True
- ElseIf Text.Text = "navela" Then
- Unload Me
- Charles.Visible = True
- ElseIf Text.Text = "alexander" Then
- Unload Me
- Owen.Visible = True
- ElseIf Text.Text = "alexander francisco" Then
- Unload Me
- Owen.Visible = True
- ElseIf Text.Text = "francisco" Then
- Unload Me
- Owen.Visible = True
- ElseIf Text.Text = "owen francisco" Then
- Unload Me
- Owen.Visible = True
- ElseIf Text.Text = "owen" Then
- Unload Me
- Owen.Visible = True
- ElseIf Text.Text = "jerzy" Then
- Unload Me
- Jerzy.Visible = True
- ElseIf Text.Text = "jerzy alfaro" Then
- Unload Me
- Jerzy.Visible = True
- ElseIf Text.Text = "alfaro" Then
- Unload Me
- Jerzy.Visible = True
- ElseIf Text.Text = "john" Then
- Unload Me
- Cliff.Visible = True
- ElseIf Text.Text = "john morancil" Then
- Unload Me
- Cliff.Visible = True
- ElseIf Text.Text = "morancil" Then
- Unload Me
- Cliff.Visible = True
- ElseIf Text.Text = "john clifford" Then
- Unload Me
- Cliff.Visible = True
- ElseIf Text.Text = "clifford" Then
- Unload Me
- Cliff.Visible = True
- ElseIf Text.Text = "cliff" Then
- Unload Me
- Cliff.Visible = True
- ElseIf Text.Text = "clifford morancil" Then
- Unload Me
- Cliff.Visible = True
- ElseIf Text.Text = "cliff morancil" Then
- Unload Me
- Cliff.Visible = True
- ElseIf Text.Text = "johnren" Then
- Unload Me
- Garlo.Visible = True
- ElseIf Text.Text = "johnren edol" Then
- Unload Me
- Garlo.Visible = True
- ElseIf Text.Text = "garlo" Then
- Unload Me
- Garlo.Visible = True
- ElseIf Text.Text = "garlo edol" Then
- Unload Me
- Garlo.Visible = True
- ElseIf Text.Text = "beatriz viray" Then
- Unload Me
- Bea.Visible = True
- ElseIf Text.Text = "viray" Then
- Unload Me
- Bea.Visible = True
- ElseIf Text.Text = "beatriz" Then
- Unload Me
- Bea.Visible = True
- ElseIf Text.Text = "bea viray" Then
- Unload Me
- Bea.Visible = True
- ElseIf Text.Text = "bea" Then
- Unload Me
- Bea.Visible = True
- ElseIf Text.Text = "joy viray" Then
- Unload Me
- Bea.Visible = True
- ElseIf Text.Text = "joy" Then
- Unload Me
- Bea.Visible = True
- ElseIf Text.Text = "kayanne" Then
- Unload Me
- Kayanne.Visible = True
- ElseIf Text.Text = "kayanne alfon" Then
- Unload Me
- Kayanne.Visible = True
- ElseIf Text.Text = "alfon" Then
- Unload Me
- Kayanne.Visible = True
- ElseIf Text.Text = "michael" Then
- Unload Me
- Yuchang.Visible = True
- ElseIf Text.Text = "michael rosas" Then
- Unload Me
- Yuchang.Visible = True
- ElseIf Text.Text = "rosas" Then
- Unload Me
- Yuchang.Visible = True
- ElseIf Text.Text = "yuchang" Then
- Unload Me
- Yuchang.Visible = True
- ElseIf Text.Text = "yuchang rosas" Then
- Unload Me
- Yuchang.Visible = True
- ElseIf Text.Text = "prince" Then
- Unload Me
- Prince.Visible = True
- ElseIf Text.Text = "prince barellano" Then
- Unload Me
- Prince.Visible = True
- ElseIf Text.Text = "barellano" Then
- Unload Me
- Prince.Visible = True
- ElseIf Text.Text = "tristan" Then
- Unload Me
- Tristan.Visible = True
- ElseIf Text.Text = "tristan arevalo" Then
- Unload Me
- Tristan.Visible = True
- ElseIf Text.Text = "arevalo" Then
- Unload Me
- Tristan.Visible = True
- Else
- MsgBox ("Student cannot be found, please check your spelling. Name must be in lowercase.")
- End If
- End Sub
- Private Sub Text_Click()
- Text.Text = ""
- End Sub
- Private Sub Text_KeyPress(KeyAscii As Integer)
- If KeyAscii = 13 Then
- Search.Value = vbChecked
- End If
- End Sub
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement