_________________________________
Source Code: Splash Screen
_________________________________

Private Sub Form_Load()
Timer1.Enabled = True
Me.Left = (Screen.Width - Me.Width) / 2
Me.Top = (Screen.Height - Me.Height) / 2
End Sub
Private Sub Timer1_Timer()
ProgressBar1.Value = ProgressBar1.Value + 5
lblstatus.Caption = "Loading..Plz Wait.."
lblstat.Caption = ProgressBar1.Value & "%"
If ProgressBar1.Value = ProgressBar1.Max Then
Timer1.Enabled = False
Unload Me
welcome.Show
End If
End Sub
_________________________________
Source Code: Welcome Screen
__________________________________________

Private Sub Form_Load()
Me.Left = (Screen.Width - Me.Width) / 2
Me.Top = (Screen.Height - Me.Height) / 2
End Sub
Private Sub logbtn_Click()
login.Show
welcome.Hide
register.Hide
End Sub
Private Sub regbtn_Click()
register.Show
login.Hide
welcome.Hide
End Sub

_________________________________
Source Code: Registration form
________________________________________________


Private Sub Form_Load()
registerado.Recordset.AddNew
End Sub
Private Sub regbtn_Click()
registerado.Recordset.Fields("Rollno") = txtroll.Text
registerado.Recordset.Fields("Name") = txtname.Text
registerado.Recordset.Fields("Class") = txtclass.Text
registerado.Recordset.Fields("Username") = txtuser.Text
registerado.Recordset.Fields("Password") = txtpass.Text
registerado.Recordset.Fields("Address") = txtadd.Text
registerado.Recordset.Fields("Contact") = txtphone.Text
registerado.Recordset.Update
MsgBox "User Registration Successful,Please Login with Username and Password", vbInformation
login.Show
register.Hide
End Sub

_________________________________
Login Form
_________________________________
Private Sub loginbtn_Click()
loginado.RecordSource = "Select * from Log where Username ='" + txtuser.Text + "' and password='" + txtpass.Text + "' "
loginado.Refresh
If loginado.Recordset.EOF Then
MsgBox "Login Failed.. Please login with correct credentials", vbCritical
login.Show
txtuser.Text = ""
txtpass.Text = ""
Else
MsgBox "Well Done..Login Successful", vbInformation
App.Show
login.Hide
End If
End Sub