El formulario tiene que ser bien grande, y la propiedad "caption" del mismo debe ser "Puntos: "
Primero crea un PictureBox o Image y establecé la imágen que va a tener (desde la propiedad "picture").
Despúes establecé la propiedad "keypreview" del formulario en "True".
Creá un Timer, y establecele la propiedad "interval" en 100.
Finalmente, agregá este código (te conviene copiar y pegar):
Dim contador As Integer 'contador de decimas de segundo
Dim puntos As Integer 'contador de puntos
Private Sub Form_KeyPress(KeyAscii As Integer) 'cuando se presiona una tecla
If Picture1.Visible = True Then 'si la imagen esta visible...
If KeyAscii = 13 Then 'y si apreto ENTER
puntos = puntos + 1 'suma un punto
Form1.Caption = "Puntos: " + Str(puntos) 'muestra los puntos como titulo
End If
End If
End Sub
Private Sub Timer1_Timer() 'cada decima de segundo
Picture1.Visible = False 'oculta la imagen
If contador = 9 Then 'si pasaron 9 decimas de segundo...
Picture1.Visible = True 'muestra la imagen
Picture1.Top = Int(Rnd * Time * 10000) 'hace distancias al borde izquierdo y superior al azar
Picture1.Left = Int(Rnd * Time * 5000)
contador = contador + 1 'agrega una decima de segundo al contador
ElseIf contador = 10 Then 'si pasaron 10 decimas de segundo....
contador = 0 'reinicia el contador de decimas de segundo
Else
contador = contador + 1 'si las decimas estan entre 0 y 8 suma una decima al contador
End If
End Sub
Si necesitas algo mas, escribime por mail. Espero haberte sido util. Suerte
Fisa
