Dije al principio que valía todo...

ATENCIÓN : No tiene porque devolver los números del primer post!!!

Aquí dejo la mía:

Option Explicit
Option Compare Text
 
Private Declare Function lstrcmpW Lib "kernel32.dll" (ByVal lpString1 As Long, ByVal lpString2 As Long) As Long
 
' -1 > Error
' 1  > Iguales
' 0  > primera palabra
' 2  > segunda palabra
Public Static Function CompareMrFrog(ByRef strWord1$, ByRef strWord2$) As Long
    If LenB(strWord1) = 0 Or LenB(strWord2) = 0 Then
        CompareMrFrog = -1
        Exit Function
    End If
 
    If strWord1 = strWord2 Then
        CompareMrFrog = 1
        Exit Function
    End If
 
    CompareMrFrog = lstrcmpW(StrPtr(strWord1), StrPtr(strWord2)) + 1
End Function

@Karcrack


DoEvents!

 
Mi forma era igual que la tuya!
Te odio, pero me buscaré la vida para hacerlo diferente, quizás no más rapido pero si diferente.
Asi que no testeeis aun...
Por la tarde posteo la parte 2 del reto

Gracias por participar...

DoEvents!

¿Qué pasa? ¿Donde están los retos que caracterizan a  esta sección?
A ver que os parece este:

Parte 1:

Crear una función que compare dos palabras (sin importar mayúsculas) y devuelva:

Ejemplos:

Espero haber sido claro... Si hay alguna duda preguntad.
Por supuesto vale todo y el más rápido gana

PD: La Parte 2 la propondré cuando esté la parte 1 finalizada...

DoEvents!

Lee las reglas, no se hacen pedidos ni tareas... -.-

DoEvents!

Private Sub Form_Load()
    Me.BackColor = RGB(195, 195, 195)
End Sub

Usa el paint os imilar para sacar el valor hexadecimal del color y en RGB...
Buscabas eso??

DoEvents!

Gracias, ya lo elimine borrandolo de inicio usando (msconfig) y escanee de nuevo y creo que no tengo nada...

DoEvents!

Eso, una persona que creia que conocia me infecto, sinceramente no me lo esperaba de él, ni sospeche.
El caso esque empezo a manejar mi ordenador a lo lammer : escribirme cosas y tal, desconecté internét, y escaneé todo con el avast y borre todo lo que encontró. Se que el muy memo usa el Poison Ivy porque me paso una captura de pantalla. -.-
http://img42.imageshack.us/img42/6011/dibujozvw.jpg
¿Alguna sugerencia para deshacerme de este bicho? La verdad es que tengo cosas de bastante valor para mi en mi PC.
Tengo Win XP Sp3

Gracias

gay

DoEvents!

http://www.elguille.info/vb/vb_novatos.htm#novato05

DoEvents!

Si.

DoEvents!