THE CODE FOR PROGRESS BAR Private Sub Form_Timer()
Me.lblcount.Caption = Me.lblcount.Caption + 1
lblprogressbar.Width = Me.lblprogressbar.Width + 77
If Me.lblcount.Caption = 101 Then
DoCmd.Close
DoCmd.OpenForm “main”, acNormal
End If
End Sub
COMPUTER LEARNING ARENA FOR ALL
KCSE AND TIVET ICT, IT and Computer studies learning materials
COMPUTER LEARNING ARENA FOR ALL
KCSE AND TIVET ICT, IT and Computer studies learning materials
THE CODE FOR PROGRESS BAR Private Sub Form_Timer()
Me.lblcount.Caption = Me.lblcount.Caption + 1
lblprogressbar.Width = Me.lblprogressbar.Width + 77
If Me.lblcount.Caption = 101 Then
DoCmd.Close
DoCmd.OpenForm “main”, acNormal
End If
End Sub