Re: Progress Bar not moving ? (General questions)

by Maverick5, Tuesday, January 10, 2006, 10:47 (6891 days ago) @ wodSupport

Public Sub Progress(ByVal Owner As WODPOP3COMLib.wodPop3Com, ByVal Position As Integer, ByVal Total As Integer) Implements WODPOP3COMLib.IwodPopClientNotify.Progress
Try
Dim frac As Integer
frac = Total / 8
Select Case Position
Case Is > frac * 1
PictureBox1.BackgroundImage = ImageList2.Images(1)
Case Is > frac * 2
PictureBox1.BackgroundImage = ImageList2.Images(2)
Case Is > frac * 3
PictureBox1.BackgroundImage = ImageList2.Images(3)
Case Is > frac * 4
PictureBox1.BackgroundImage = ImageList2.Images(4)
Case Is > frac * 5
PictureBox1.BackgroundImage = ImageList2.Images(5)
Case Is > frac * 6
PictureBox1.BackgroundImage = ImageList2.Images(6)
Case Is > frac * 7
PictureBox1.BackgroundImage = ImageList2.Images(7)
Case Is > frac * 8
PictureBox1.BackgroundImage = ImageList2.Images(8)
End Select
Catch ex As Exception
' ignore error
End Try
End Sub