VB按下鼠标后改变鼠标图案

要使鼠标移到控件上鼠标指针形状改变，可以使用控件的MousePointer属性来修改，但是我在VB6测试时则无法满足按下按键后再次改变图形的要求，所以用代码实现。
假设按钮的name属性为Command1，这里我随便用了三中鼠标图标，则代码为

Sub command1_mousedown(button As Integer, shift As Integer, x As Single, y As Single)
'在按钮上单击时，变成调整的图标
If button = 1 Then MousePointer = 5
End Sub

Sub command1_mousemove(button As Integer, shift As Integer, x As Single, y As Single)
'移动到按钮上时，变成十字形
MousePointer = 2
End Sub

Sub form_mousemove(button As Integer, shift As Integer, x As Single, y As Single)
'把鼠标移出按钮，恢复默认图标
MousePointer = 0
End Sub