ActiveX progressbar

[DaoK]

I took a code who someone in the forum(Serge!) wrote and I tryed to made a OCX with it. I changed some stuff but when I try my new OCX I have an error and I can solve it.

This is the code
***add a timer1 and a picture1(autodraw to true)***


***********Module***********

Public Sub DrawProgress(p_PictureBox As PictureBox, ByVal p_sngPercent As Single, p_lngBackColor As Long, p_lngForeColor As Long)
    Dim strPercent As String
    Dim intX As Integer
    Dim intY As Integer
    Dim intWidth As Integer
    Dim intHeight As Integer
    
    strPercent = Format$(Int(p_sngPercent)) & "%"
    intWidth = p_PictureBox.TextWidth(strPercent)
    intHeight = p_PictureBox.TextHeight(strPercent)
    intX = p_PictureBox.Width / 2 - intWidth / 2
    intY = p_PictureBox.Height / 2 - intHeight / 2
    
    With p_PictureBox
        .FillStyle = vbFSSolid
        .BackColor = p_lngBackColor
        .ForeColor = p_lngForeColor
        .DrawMode = vbCopyPen
        
        .CurrentX = intX
        .CurrentY = intY
        p_PictureBox.Print strPercent
        .DrawMode = vbNotXorPen
    End With
    
    If p_sngPercent > 0 Then
        p_PictureBox.Line (0, 0)-(p_PictureBox.Width * p_sngPercent / 100, p_PictureBox.Height), p_lngForeColor, BF
    Else
        p_PictureBox.Line (0, 0)-(p_PictureBox.Width, p_PictureBox.Height), p_lngBackColor, BF
    End If
    p_PictureBox.Refresh
End Sub

*****************Form*****************

Option Explicit
Dim i As Integer
Private Sub Form_Load()
    Timer1.Interval = 50
End Sub
 
Private Sub Timer1_Timer()
theValue = value(i + 1)
End Sub
 
Private Sub UserControl_Initialize()
Picture1.Left = 0
Picture1.Top = 0
End Sub
Private Sub UserControl_Resize()
Picture1.Width = UserControl.Width
Picture1.Height = UserControl.Height
End Sub
Function value(i As Integer)
    If i = 100 Then
        i = 0
    End If
    i = i + 1
    DrawProgress Picture1, i, vbWhite, vbBlue
End Function
Private Sub UserControl_ReadProperties(PropBag As PropertyBag)
i = PropBag.ReadProperty("ProgressValue", 0)
End Sub
Public Property Get theValue() As String
theValue = i
End Property
Public Property Let theValue(ByVal New_Value As String)
    i = New_Value
    PropertyChanged "ProgressValue"
    theValue = value(i)
End Property
Private Sub UserControl_WriteProperties(PropBag As PropertyBag)
    Call PropBag.WriteProperty("ProgressValue", i, 0)
End Sub

Any one can tell me what I have to change to make it work because it work 1 sec and than crash ?

[DaoK]

That problem is really hard ?

[DaoK]

.......