大家帮我看看这个VB打字程序哪有问题?

Private Sub Command1_Click()
Timer1.Enabled = True

a
End Sub

Sub a()

Label1.Caption = Chr(Int(Rnd * 26 + 97))
Label1.Width = Int(Rnd * Frame1.Width)
Label1.Top = Frame1.Top

End Sub

Private Sub Form_KeyPress(KeyAscii As Integer)
If Chr(KeyAscii) = Label1.Caption Then
a
End If
End Sub

Private Sub Form_Load()
Randomize
End Sub

Private Sub Timer1_Timer()
Dim speed As Integer
speed = Val(Text1.Text)
Label1.Top = Label1.Top + speed
End Sub

_____________________________________
主要是Private Sub Form_KeyPress(KeyAscii As Integer)
If Chr(KeyAscii) = Label1.Caption Then
a
End If
End Sub 按了键位始终没放映啊???? 哪位高手帮下!!

大家帮我看看这个VB打字程序哪有问题? 大家帮我看看这个VB程序 大家帮我看看这个VB程序谢谢~ 大家帮我看看这个VB程序哪里错了 请帮我看看这个VB程序!!! 大家来帮我看看VB程序 大家帮我看看这个C程序 各位帮我看看这个vb程序,怎么错的 请大家帮我解决一下这个vb程序!!!!!! 大家帮我看下这个VB死机小程序???