Problema de clave de fondo de VB. (código fuente)

Private Sub Command1_Click() 'Si todos tienen el mismo título de ventana, es necesario repetirlos, jaja. La función SendKey significa (título de la ventana, clave)

Llamar a SendKey("Zone 5 Puppy Online",VK_TAB) 'Ventana de juego 1

Llamar a SendKey("Zone 8 Puppy Online", VK_TAB) 'Ventana de juego 2

Llamar a SendKey("Zone 10 Puppy Online",VK_TAB)'Ventana de juego 3

Fin Subprivate sub SendKey(argTitle As String,argKey As long) dim tempHandle Mientras: tempHandle = FindWindow(vbNullString, argTitle)

SendMessage tempHandle, WM_KEYDOWN, argKey, 0

SendMessage tempHandle, WM_KEYUP, argKey, 0

end sub