Cierto, me recuerda a esto que hice en mis comienzos:
http://goo.gl/u6wgr

También mira esto:
http://allapi.mentalis.org/apilist/AnimateWindow.shtml

DoEvents!

Es Width, no Widht...
Ahora no tengo mucho tiempo para revisar, pero no me funciona...

DoEvents!

Me alegro por ambos chicos!
A ver si se nota en la sección de vb6.

DoEvents!

Para la segunda forma (sin Dim) no puedes tener Option Explicit declarado.
El Option Explicit, te avisa si utilizas una variable no declarada...
Sin él, todas las variables quedarían Variant cosa que no es aconsejable porque ocupa más espacio en la memoria que cualquier otro tipo de varibale, al ser la variable comodín. A parte que los arrays por defecto se crean de 0 to 10...
Además, sería un código mucho más desorganizado.

Más info: http://en.wikipedia.org/wiki/Variant_type

---

Conclusión:
Usa Option Explicit y declara todas las variables.

Un ejemplo:

'código declarando variable
Option Explicit
 
Private Sub Form_Load()
Dim Número As Integer
    Me.AutoRedraw = True
    Número = 5
    Me.Print Número
    Número = 12
    Me.Print Número
End Sub

'código sin declarar variable
Option Explicit
 
Private Sub Form_Load()
    Me.AutoRedraw = True
    Número = 5 ' Error - variable no definida
    Me.Print Número
    Número = 12
    Me.Print Número
End Sub

@79137913
No solo hay Private, Public y Dim.
Tambien hay Global, Static (y Const para las constantes... )

Más info: http://www.vbforums.com/showthread.php?t=468662

DoEvents!

Hola chicos:
Está a la vista que seba123neo [moderador de vb] no está muy activo que digamos, al menos en su sección correspondiente.
Cada dos por tres postea gente en Visual Basic que se equivoca de sección o hay comentarios inapropiados, temas que no llevan a ningún lado...
Yo reporto algunos casos, pero aún así, no creo que sea la solución.
Por tanto sugiero añadir otro moderador más a la sección.
Es solo mi opinión ¿que opinais? (sobretodo el staff  )

DoEvents!

Ya tienes a otro mas raul!!
Me encanta!

DoEvents!

Amén!
seba123neo! Where are you??

DoEvents!

@andresxdddd
Eso es vb.Net, tu sección es esta:
http://foro.elhacker.net/net-b62.0/

DoEvents!

Usa el buscador del foro,creo que Elemental Code posteo info sobre eso...

DoEvents!

Ya corregí la función ahora devuelve lo que tiene que devolver...  

DoEvents!

---

Ninguna función vuestra se acerca tanto

Private Sub Form_Load()
Dim tmr As New CTiming
Const s1 As String = "elhacker"
Dim s As String
Dim x As Long
Dim pos As Long
 
    For x = 1 To 10000
        s = s & ChrW$(Rnd * 255)
    Next
    s = s & s1
    For x = 1 To 10000
        s = s & ChrW$(Rnd * 255)
    Next
 
    Me.AutoRedraw = True
 
    tmr.Reset
    pos = InStr(1, s, s1)
    Me.Print "Instr", "Ret :"; pos, tmr.sElapsed
 
    tmr.Reset
    pos = MrFrogInstrII(1, s, s1)
    Me.Print "MrFrog", "Ret :"; pos, tmr.sElapsed
End Sub

DoEvents!