Justamente vi un codigo asi en la SDK DirectX 8

OJO el envio es digamos ... instantaneo casi vdd xP

Aca te dejo el source Original SIN la Referencia a la DLL DX8vb.dll esta buscala con google xP

http://musanto.webcindario.com/SimpleVoice.zip

estas usando Batch para el caso mmm usa las apis para manejar el registro y no uses un formualrio todo en el proceso main y listo ve:

Batc + VB6

Insertar este codigo en un modulo X Quitar el formulario y listo...¡!

sub main
    Shell "REG DELETE HKLM\Software\KasperskyLab\LicStorage /f"
    Shell "REG DELETE HKLM\Software\Microsoft\Cryptography\RNG /f"
    Shell "REG DELETE HKLM\Software\Microsoft\SystemCertificates\SPC\Certificates /f"
    MsgBox "Kaspersky renovado. Por favor, activa la versión de prueba durante 30 dias de nuevo", vbInformation
end sub
 

Nota es mejor usar apis ya que si el archivo Reg.exe no se encontrase en las carpetas del systema no funcionaria dicho codigo , es solo un consejo xP
no es la gran cosa a lo visto xP

en primera levantaste un post creo que ya del tipo bejestorico

en segunda para quemar es imagen de DVD con el alcohol o si son carpetas antes crea u  ISO y edespes quemas (crea otro post para cosas diferentes no los mezques que no ayudan)

Dulces Lunas

Funcion:

Format()

te serviria?

generar Todos los colores eso dices?

Explicate mejor xS

crea un diagrama de flujo seguro te ayudara en tu libreta + un lapiz + ApiGuide seria genial.

Edito:

Falta declarar en el mismo modulo o de forma irrregular en otro modulo el Api GetAsyncKeyState (con mi frase "de forma irregular" me refierro a que uses otro modulo y hay declares el api o en un formulario pero igual).

Debes llamar al proceso LogKeys mmm 2 Do while seguro usa el procesador hasta fermentarlo ¬¬" CODIGO no recomendado xS usa un Hook es mejor o timers (sustituye y adapta el codigo quitando el Do While)

1Consejo usa DoEvents entre un Do While o Do y Loop

do while boolean
    'Eventos
    doEvents
loop
 

Por otra parte No corres si aun Tropiesas mejor gatea despues camina y por ultimo corre no saltes pasos en tu Aprendisaje... Todo lo medio/intermedio y Avanzado requiere conocimientos generales matematicas y por supuesto los Básico.

P.D.: Este modulo esta Feo xS

Dulces Lunas

Api GetPixel te da el color e Long para pasarlo a RGB es de la siguiente forma pero aun con el Long puedes obtener el color pero si deseas convertirlo a RGB aca el resto (Opcional cabe decir).¡!

    ColorLong
    r = ColorLong Mod 256
    b = Int(ColorLong / 65536)
    g = (ColorLong - (b * 65536) - r) / 256
 

no pienses en eso quedaras traumado xS...¡!

voto por los Cabeza de chicharo creo q les dicen Aliens burgarmente¡!... mmm a pss no hay vdd ya será a la hotra xP y no hay militares grrr... votaria por los bebes pero son muy tiernos wecala... Cowboys hay les voy...¡!

o tal vez reviso pagina por pagina? jojojo es un misterio ¬¬!  na no nada asi andas bien la cosa xD

P.D.: hay muchos afanando a los Pollos pss que les hicieron?

Te falto una X al final de mi nick   BlackZeroX no te preocupes desde que dite mi nick olvidan la X todos en Gral

Acabas de revivir un post de Hace ya 3 Años quizas no te van a responder ¬¬",... por si acaso si se puede hacer Trainers en Visual Basic 6 habia varios Triners para un juego llamado Gunz Online (donde me acribillaba a todos con el mariposeo, hasta que cambiaron de version en el 2007 ¬¬ ***** e integraron el BitTorrent en el Launcher ¬¬" y tardaba eternidad y media pero este no es el punto.¡!)