Progress Bar Visual Basic 6.0

Private Sub Cmd_Rekam_Click()

Dim i As Integer, j(32766) As String

Me.Prog_Bar.Min = LBound(j)
Me.Prog_Bar.Max = UBound(j)
Me.Prog_Bar.Visible = True

For i = LBound(j) To UBound(j)
        
        Me.Prog_Bar.Value = i
Next i

Me.Prog_Bar.Visible = False

End Sub

Private Sub Form_Load()

Me.Prog_Bar.Visible = False

End Sub