script progrees bar pada databese.

 script progressbar(form)

Option Compare Database
Option Explicit
Dim a As Integer
Dim X1 As Integer
Dim form4 As Integer
Private Sub Form_Open(Cancel As Integer)
Me.TimerInterval = 100
Me.label1.Left = 1
X1 = label1.Left
DoCmd.Close acForm, "Login"
End Sub
Private Sub Form_Resize()
form4 = Me.Width
End Sub
Private Sub Form_Timer()
label1.Left = label1.Left + 100
If label1.Left > form4 Then
label1.Left = X1
End If
a = a + 1
pb.Value = a

Form.Refresh
If a = 100 Then
a = 0
DoCmd.OpenForm "main menu"
Form_splash.Visible = False
End
End If
End Sub