急！！vb图象控件的问题！！

Question

程序如下：
Private Sub Picture4_MouseUp(Button As Integer, Shift As Integer, X As Single, y As Single)
Timer2.Enabled = False
If Button = 2 And lnumber > 3 Then
kn1 = kn1 + 0.1
If kn1 > 1 Then
kn1 = 1
End If
End If
If Button = 2 And lnumber < 3 Then
kn1 = kn1 + 0.0005
If kn1 > 1 Then
kn1 = 1
End If
End If
If Button = 1 And lnumber > 3 Then
kn1 = kn1 - 0.1
If kn1 < 0 Then
kn1 = 0
End If
End If
If Button = 1 And lnumber < 3 Then
kn1 = kn1 - 0.0005
If kn1 < 0 Then
kn1 = 0
End If
End If
为什么编译时提示：type mismatch!无法编译
如何解决？

Answer 1

其它的模块运行都是正常的，只有这里通不过。是做一个仿真实验的模拟。郁闷ing....
Private Sub Picture4_MouseUp(Button As Integer, Shift As Integer, X As Single, y As Single) =================编译到这里提示:type mismatch