在Visual Basic中设置光标的方法有以下几种：
使用API函数
可以使用`SetCursor`函数来设置光标。例如，在`Command1_MouseDown`和`Command1_MouseMove`事件中设置光标类型为手型（65581）。
通过属性设置
可以通过修改控件的`MousePointer`属性来设置光标类型。例如，将`Label1`的`MousePointer`属性设置为99，然后添加自定义图片。
使用MxDrawX控件
可以使用MxDrawX控件中的`Mx_SetCursor`函数来设置光标。需要先加载光标文件，然后调用`Mx_SetCursor`函数来应用光标。
预定义光标
Visual Basic允许程序员将控件的`MousePointer`属性设置为12个预先定义好的鼠标光标之一，例如手型、十字线等。
示例代码
```vb
Private Declare Function SetCursor Lib "user32" （ByVal hCursor As Long） As Long
Private Sub Command1_MouseDown（Button As Integer, Shift As Integer, X As Single, Y As Single）
If Button = 1 Then
SetCursor 65581 ' 设置手型光标
End If
End Sub
Private Sub Command1_MouseMove（Button As Integer, Shift As Integer, X As Single, Y As Single）
If Button = 0 Then
SetCursor 65581 ' 设置手型光标
End If
End Sub
```
建议
选择合适的方法：根据具体需求选择设置光标的方法，如果需要更复杂的光标效果，可以考虑使用MxDrawX控件。
确保光标文件：如果使用自定义光标文件，确保光标文件路径正确，并且文件格式支持。
测试：在实际应用中，确保光标设置在各种情况下都能正常工作，特别是在窗口大小变化或控件重绘时。