by Colin Kemege (2 Submissions)
Category: Graphics
Compatability: Visual Basic 4.0 (32-bit)
Difficulty: Unknown Difficulty
Originally Published: Fri 29th June 2001
Date Added: Mon 8th February 2021
Rating: 
(1 Votes)
This is a very very easy way to make a smooth progress bar of your own with a shape, not an ugly non-customizable ProgressBar. Just copy all
API Declarations
'By Colin Kemege [email protected]
'Add a Form, name your form: frmProgress
'Make a shape: Shape1
'Make a Timer: Timer1
Dim p As Integer
VBcoders
Shape1.Width = 375
End Sub
Private Sub Timer1_Timer()
Randomize
p = Int((5 - 2 + 1) * Rnd + 2)
If p = 2 Or p = 3 Then
Shape1.Width = Shape1.Width + 65
End If
If p = 4 Or p = 5 Then
Shape1.Width = Shape1.Width + 22
End If
If Shape1.Width >= 4335 Then
MsgBox "Data has been loaded"
Unload Me
End
End If
End Sub
No comments have been posted about This is a very very easy way to make a smooth progress bar of your own with a shape, not an ugly no. Why not be the first to post a comment about This is a very very easy way to make a smooth progress bar of your own with a shape, not an ugly no.