在Visual Basic中，`MouseMove`事件可以通过以下步骤进行编程：
声明事件处理程序
在你的窗体或控件的代码模块中，声明`MouseMove`事件处理程序。例如，在窗体的代码模块中，你可以声明如下事件处理程序：
```vb
Private Sub Form_MouseMove（Button As Integer, Shift As Integer, X As Single, Y As Single）
End Sub
```
处理事件
在`MouseMove`事件处理程序中，你可以编写代码来响应鼠标的移动。例如，你可以改变某个控件的颜色或显示一个消息框：
```vb
Private Sub Form_MouseMove（Button As Integer, Shift As Integer, X As Single, Y As Single）
' 检查鼠标是否按下了右键
If Button And 2 = 2 Then
' 画圆
Circle（X, Y）, 200
End If
End Sub
```
使用WithEvents关键字
如果你希望处理多个控件上的`MouseMove`事件，可以使用`WithEvents`关键字来声明事件处理程序。例如：
```vb
Private WithEvents myLabel As Label
Private Sub Form_Load（）
' 添加标签控件
Set myLabel = Form1.Controls.Add（"vb.label", "label1"）
myLabel.Caption = "我添加的控件"
myLabel.Visible = True
End Sub
Private Sub mylabel_MouseMove（Button As Integer, Shift As Integer, X As Single, Y As Single）
' 显示消息框
MsgBox "移动了吧"
End Sub
```
处理特定控件的事件
如果你只想对特定控件的事件进行处理，可以在该控件的代码模块中声明事件处理程序。例如，在标签控件`Label1`的代码模块中声明`MouseMove`事件处理程序：
```vb
Private Sub Label1_MouseMove（Button As Integer, Shift As Integer, X As Single, Y As Single）
' 改变标签的前景色
Label1.ForeColor = vbRed
End Sub
```
示例代码
```vb
Private Sub Form_Load（）
' 添加标签控件
Set myLabel = Form1.Controls.Add（"vb.label", "label1"）
myLabel.Caption = "我添加的控件"
myLabel.Visible = True
End Sub
Private Sub mylabel_MouseMove（Button As Integer, Shift As Integer, X As Single, Y As Single）
' 显示消息框
MsgBox "移动了吧"
End Sub
Private Sub Form_MouseMove（Button As Integer, Shift As Integer, X As Single, Y As Single）
' 检查鼠标是否按下了右键
If Button And 2 = 2 Then
' 画圆
Circle（X, Y）, 200
End If
End Sub
```
解释
Button And 2 = 2：这个表达式用于检查鼠标是否按下了右键。在VB中，`Button`参数的值是`Integer`类型，其中右键的值为2（通过`Button And 2`可以得到2）。
Circle（X, Y）, 200：这是一个绘图语句，用于在鼠标位置画一个半径为200的圆。
通过这些步骤和示例代码，你可以更好地理解和实现`MouseMove`事件的编程。