val函数用val！

我在知道理回答了某人的问题：
1人同问
有关VB6.0的控件随方向键移动问题
检举|2012-12-26 19:04提问者： 椰树问问 |浏览次数：26次
怎么我编写的控件无法随方向键移动？程序代码和其它成功的例子都是一模一样的，是不是控件的属性设置出错？如果您知道原因的话，希望您能不吝赐教！
问题补充：
代码是这样：
Private Sub Form1_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case 37
Picture4.Left = Picture4.Left - 100
Case 38
Picture4.Top = Picture4.Top - 100
Case 39
Picture4.Left = Picture4.Left + 100
Case 40
Picture4.Top = Picture4.Top + 100
End Select
End Sub
不知道是不是代码错了。

由于被选为推荐答案，不能继续回答，于是我在私信里回答了：
Private Sub Form1_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case 37
Picture4.Left = val（Picture4.Left ）- 100
Case 38
Picture4.Top =val（ Picture4.Top） - 100
Case 39
Picture4.Left = val（Picture4.Left） + 100
Case 40
Picture4.Top = val（Picture4.Top） + 100
case else
exit sub
End Select
End Sub