在VB程序中设置鼠标的方法如下：
使用SetCursorPos函数
该函数用于设定鼠标位置。其声明为：
```vb
Public Declare Function SetCursorPos Lib "user32" （ByVal x As Long, ByVal y As Long）
```
需要定义一个`POINTAPI`类型的变量来存放鼠标的位置。例如：
```vb
Public Type POINTAPI
x As Long
y As Long
End Type
```
使用`GetCursorPos`函数获得鼠标的位置，存放到`POINTAPI`变量中，再通过`SetCursorPos`函数来设置鼠标的位置。例如：
```vb
Dim pt As POINTAPI
GetCursorPos pt
SetCursorPos pt.x, pt.y
```
使用Cursor属性
可以通过设置`Cursor`属性来改变鼠标指针的样式。例如：
```vb
Cursor.Current = Cursors.WaitCursor
```
使用LoadCursorFromFile函数
该函数用于加载ANI资源，从而改变鼠标指针的样式。例如：
```vb
Dim hCursor As Long
hCursor = LoadCursorFromFile（"C:\Path\To\Cursor\File.ani"）
Cursor.Handle = hCursor
```
使用PopupMenu方法
该方法用于弹出一个菜单，可以在当前鼠标位置弹出菜单。例如：
```vb
Private Sub Form_Click（）
PopupMenu "MyMenu", 0, Me.Left, Me.Top
End Sub
```
使用MouseIcon属性
可以通过设置控件的`MouseIcon`属性来添加图片，从而改变鼠标指针的样式。例如：
```vb
Label1.MouseIcon = "C:\Path\To\Cursor\Image.cur"
```
使用Cursor.Position属性
可以精确地设置光标的位置。例如：
```vb
Cursor.Position = New Point（100, 200）
```
通过以上方法，你可以在VB程序中实现鼠标位置的设置和鼠标指针样式的改变。根据具体需求选择合适的方法即可。