我想做一个进度条来作为我程序的开始页，但怎么做也做不好．请高手出马帮我看一下我的代码那里有错．
Private Sub 加载_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Me.ProgressBar1.Minimum = 0
        Me.ProgressBar1.Maximum = 10
        Me.ProgressBar1.Value = 0
        Me.Timer1.Interval = 10
        Me.Timer1.Enabled = True
    End Sub

    Private Sub Timer1_Timer()
        For i As Integer = 0 To 100
            i = i + 5
            If i >= 100 Then
                Me.Timer1.Enabled = False
            End If
            Me.ProgressBar1.Value = i
        Next
    End Sub