xk a mi eso me funciona bien U_U y asegurate d k txtlog es un label xk si fuera un textbox no tiene esa propiedad ..... mira prueba con esto
Código:
Private Sub Command1_Click()
Label1.Caption = "abajo"
End Sub
Private Sub Label1_Change()
If Label1.Caption = "abajo" Then
Timer1.Enabled = True
End If
End Sub
Private Sub Timer1_Timer()
SendKeys "{down}"
End Sub
y al timer dale un intervalo de 100 o si kieres mas komo kieras