Visual Basic - Barra de Espera de Windows

Por favor si alguien me puede suministrar el codigo para simular la barra de espera de Windows 2000

Acabo de hacer y probar esto...
Esta muy simple... Puedes mejorarlo...
En una form, pones un command, un picture que sera la barra de espera, y un timer...

Puedes ajustar el valor de la variable nSteping en el Form_Load(). Yo uso 16, pero puedes usar cualquier valor por el que 256 pueda dividirse exactamente (8, 16, 32, 64 o 128). Entre mas alto el valor, mas apariencia de tardanza da la barra en completarse.

Igual ajusta los colores con los que se desplaza la barra (yo uso la misma cantidad de Rojo, Verde y Blanco, lo cual me da tonos de gris)...

Espero te sirva ...

''''''

Dim nStep As Single
Dim nSteping As Integer
Dim nCol As Single
Dim nBTop As Single
Dim nBLeft As Single
Dim nBBottom As Single
Dim nBRight As Single

Private Sub Command1_Click()
Unload Me
End Sub

Private Sub Form_Load()
nSteping = 16
nStep = Int(Me.Picture1.ScaleWidth / nSteping)
nCol = Me.Picture1.ScaleLeft
nBTop = Me.Picture1.ScaleTop
nBLeft = Me.Picture1.ScaleLeft
nBBottom = Me.Picture1.ScaleHeight
nBRight = Me.Picture1.ScaleWidth

Me.Timer1.Interval = 50

End Sub

Private Sub Timer1_Timer()
Dim nBlock As Integer
Dim lKeep As Boolean
Dim nColor As Integer
Dim nDownColor As Integer
Dim nLeft As Single
Dim nRed, nGreen, nBlue As Integer

nDownColor = 256 / nSteping
lKeep = False
nLeft = nCol

For nBlock = 0 To nSteping - 1

nColor = 256 - ((nBlock * nDownColor) + nDownColor)
If nColor <= 0 Then
nColor = nColor * -1
EndIf

nBlue = nColor: nRed = nColor: nGreen = nColor

If nLeft <= nBRight Then
Me.Picture1.Line (nLeft, nBTop)-(nLeft + nStep, nBBottom), RGB(nRed, nGreen, nBlue), BF
lKeep = True
End If
nLeft = nLeft - nStep
Next

If Not lKeep Then
nCol = nBLeft
Else
nCol = nCol + nStep
End If
End Sub

''''''''''''''''