AYUDA CON PROGRESSBAR

[Cagalas]

PODRIAN AYUDARME CON ESTE PEQUEÑO PROGRAMA YA QUE NO E PODIDO QUE SE LLENE ESTE CUADRITO Y YA ME ESTA DESESPARANDO
Private Sub Command1_Click()

Dim conta As Byte
Dim conta2 As Long

Label1.Visible = True
Command1.Visib le = False
Command3.Visib le = True
Form1.Refresh

While (conta < 100) And (copia = True)
conta = conta + 1
ProgressBar.Va lue = conta
For conta3 = 1 To 100000: Next
DoEvents
Wend
Label1.Caption = "copia completada"
Command2.Visib le = True
Command3.Visib le = False


End Sub

Private Sub Command2_Click()
End
End Sub

Private Sub Command3_Click()
cipoa = False
ProgressBar1.V isible = False
Label1.Caption = "copia cancelada"
Command2.Visib le = True

End Sub

Private Sub Form_Load()
copia = True
End Sub

Private Sub ProgressBar1_M ouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)

End Sub

PODRIAN DECIRME CONDE ESTA MI ERROR PORFAVOR

[ranefi]

Hola caligastia, buena tarde buen hombre, mira creo que el error está aqu

[Cagalas]

NO AMIGAZO AUN NO SE LLENA LA BARRITA

[Cagalas]

AYUDAME PS AMIGO PORFAVOR YA ME ESTA DESESPERANDO ESTA COSA HAAAAAAAAAAAAA AAAAGGGGG   

[Universal SAC]

http://foro.portalhacker.net/index.php/topic,5464.0.html

Hay que revizar el foro antes de postear... y volver a postear 
Ah

[Cagalas]

jale grax