Mira, leelo y entendelo, no te lo tendria que dejar pero bueno:

Option Explicit
 
Public Sub Form_Load()
 
Dim n As Integer
Dim a(9) As Integer
Dim m As Integer
Dim i As Integer
 
 
For i = 0 To 9
 
Do
Randomize
 
m = Int((Rnd * 10) + 1)
 
Loop While (Existe(m, a()))
 
a(i) = m
 
Next i
 
For i = 0 To 9
 
MsgBox a(i)
 
Next
 
End Sub
 
 
 
Function Existe(m As Integer, a() As Integer) As Boolean
Dim num
 
For Each num In a()
If (m = num) Then Existe = True
Next
 
End Function
 
 

No te confundas mucho, no hagas eso, y todavia esta mal.
A mi el codigo que te pase me funciona, dices que no para de presional el espacio pero lo presiona aunquesea? a mi me anda perfecto.

Al usar Form_KeyDown capturara las teclas que se presionen cuando estas situado en el form, si estas en otra cosa y apretas S obvio que no pasará nada.

Mmm esque no es asi, usa el Do-While para que guarde todos los numeros generados mientras no sea igual a uno que ya se guardo, es decir, podrias crear una funcion, Repetido() as Boolean para que sea la verificacion en el while

Estas haciendo tipo un bot? que al apretar la tecla A empieze a escribir espacios hasta que pulses la tecla S?
Creo que lo podias hacer simplemente sin apis aunque no es lo mejor..

Option Explicit
 
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
 
    If KeyCode = vbKeyA Then
     Timer1.Enabled = True
     End If
 
    If KeyCode = vbKeyS Then
     Timer1.Enabled = False
     End If
 
End Sub
 
Private Sub Timer1_Timer()
SendKeys " "
End Sub
 

A mi me funciona, dinos cual es el error

Mejor pseudocodigo que el de 79137913 no vas a encontrar, asique esperamos tu codigo

Pero si te dicen que tenes buscar cual es el problema? busca en google ejemplos de uso de hotkeys

Quisiera saber como crear un foro, que pasos seguir, consejos, si tengo que tener conocimiento de algo antes o no se, no tengo ni idea.
Quiero consejos sobre donde alojar el servidor, donde consigo los diseños, como es lo de Simple Machines Forums si lo tengo q bajar y como lo modifico.

Si me dan una mano les agradezco

epic fail dirían ustedes xD, esta en foro libre y penso que le iba a contar el mensaje.. sigue en 99 mensajes xD

Yo si fuera mujer sería lesbiana también, que divinoo jaja