ok, so i have 3 times, to each change the rate that the progressbar progresses...
and at the end, i want it to click on the form to load the rest of the app...
and i get an 'object reference not set to an instance of an object'..
VB Code:
Private Sub frmSplash_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load tmrLoadDB.Enabled = True lblLoadingDB.BringToFront() End Sub Private Sub tmrLoadDB_Elapsed(ByVal sender As System.Object, ByVal e As System.Timers.ElapsedEventArgs) Handles tmrLoadDB.Elapsed progBarMain.Value = progBarMain.Value + 1 If progBarMain.Value >= 45 Then tmrLoadDB.Enabled = False tmrLoadForms.Enabled = True End If End Sub Private Sub tmrLoadForms_Elapsed(ByVal sender As System.Object, ByVal e As System.Timers.ElapsedEventArgs) Handles tmrLoadForms.Elapsed lblLoadForms.BringToFront() progBarMain.Value = progBarMain.Value + 1 If progBarMain.Value >= 150 Then tmrLoadForms.Enabled = False tmrSecPol.Enabled = True End If End Sub Private Sub tmrSecPol_Elapsed(ByVal sender As System.Object, ByVal e As System.Timers.ElapsedEventArgs) Handles tmrSecPol.Elapsed lblLoadSecPol.BringToFront() progBarMain.Value = progBarMain.Value + 1 If progBarMain.Value = 200 Then tmrSecPol.Enabled = False End If End Sub Private Sub frmSplash_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Click If tmrLoadDB.Enabled = False And tmrLoadForms.Enabled = False And tmrSecPol.Enabled = False Then Dim loginForm As Sparticus.frmLogin loginForm.Activate() End If End Sub
thanks everyone, Justin![]()
![]()




Reply With Quote