动态鼠标指针,急：这个vb程序显示的点怎么改成鼠标指针？

Private Type xy
X As Single
Y As Single
End Type

Dim a(5) As xy

Private Sub Form_Activate()
v = "please click your mouse , then try to move it !"
Form1.CurrentX = Screen.Width / 8
Form1.CurrentY = Screen.Height / 2.5
Randomize
For i = 1 To Len(v)
Form1.FontSize = 20 + 15 * Rnd
Form1.ForeColor = &HFFFFFF * Rnd
Print Mid(v, i, 1);
Next i
End Sub

Private Sub Form_Load()
Me.Move 0, 0, Screen.Width, Screen.Height
Timer1.Enabled = False
Timer1.Interval = 10
Me.AutoRedraw = True
For i = 0 To 4
Picture1(i).Picture = LoadPicture("C:\WINDOWS\Cursors\3dwarro.cur")
Picture1(i).BorderStyle = 0
Picture1(i).Visible = False
Next i
End Sub

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
a(0).X = X
a(0).Y = Y
For i = 1 To 5
a(i).X = X
a(i).Y = Y
Next i
Timer1.Enabled = True
Me.Cls
For i = 0 To 4
Picture1(i).Visible = True
Next i
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
a(0).X = X
a(0).Y = Y
End Sub

Private Sub Timer1_Timer()
Dim i As Integer
For i = 1 To 5
a(i).X = a(i).X + (a(i - 1).X - a(i).X) * 0.1
a(i).Y = a(i).Y + (a(i - 1).Y - a(i).Y) * 0.1
Picture1(i - 1).Move a(i - 1).X, a(i - 1).Y
Next i
End Sub

CSS鼠标样式语法如下：
任意标签中插入 style="cursor:*"
例 子：文本或其它页面元素 文本或其它页面元素 注意把 * 换成如下15个效果的一种：

下面是对这15种效果的解释。移动鼠标到解释上面，看看你的鼠标起了什么变化吧！
hand是手型
例子：CSS鼠标手型效果 CSS鼠标手型效果

pointer也是手型，这里推荐使用这种，因为这可以在多种浏览器下使用。
例子：CSS鼠标手型效果 CSS鼠标手型效果

crosshair是十字型
例子：CSS鼠标十字型 效果 CSS鼠标十字型 效果

help是问号
例子：CSS鼠标问号效果 CSS鼠标问号效果

下面写法都一样，这里就不一一写完了。
text是移动到文本上的那种效果
wait是等待的那种效果
default是默认效果
e-resize是向右的箭头
ne-resize是向右上的箭头
n-resize是向上的箭头
nw-resize是向左上的箭头
w-resize是向左的箭头
sw-resize是左下的箭头
s-resize是向下的箭头
se-resize是向右下的箭头
auto是由系统自动给出效果

　1.首先到网上下载鼠标指针主题包 　　2.打开控制面板下面“鼠标”按钮，打开鼠标属性配置窗口 　　3.点击“指针”标签，windows列出预置系统下默认所有鼠标的状态及图标，双击需要更改图标的状态列，如下图修改“正常选择”状态下的鼠标箭头图标 　　 　　4.在鼠标主题包里选择需要更换的图片后点“确定”，即可预览到鼠标箭头的图标 　　 　　5.确认无误后点击“确定”，这时把鼠标移动到非编辑区域即可持到鼠标的图标已修改成已编辑的图片。

光标指针有两种文件类型： 一种是动态类型（*.ani），这种类型的光标是可以变化的。另一种则是静态光标（*.cur）。 要想制作精美的鼠标指针，需要使用鼠标指针制作软件才可以。 以“MicroAngelo”为例，制作方法如下： 1、运行“Animator”程序，在其主界面中点击“文件”-“新建”按钮打开“新建”对话框。 2、在打开的“创建新的资源”窗口中，选择“资源”类型为“光标”，点击“确定”完成创建操作。 3、接下来从“工具箱”面板中合适合适的工具，来制作自己的个性化光标图标，通常利用“铅笔”工具来绘制光标图标，左上角的两个标签用于设置前景色和背景色。 4、点击顶端工具栏中的“预览窗口”按钮，就可以在缩微图中看到已制作的光标大体的样子。 5、制作完成后，点击“文件”-“另存为”选项，就可以将光标文件以“ani”格式进行保存输出。 6、完成效果图如下：

1、先建立你自己的资源文件。如Cursor.res, 把你的光标加入到资源文件里。
2、在你的APPLICATION里面加入编译指示器{$R Cursor.res}
3、Screen.Cursors[cursor1] := LoadCursor(HInstance, '光标1')
......
Screen.Cursors[cursorN] := LoadCursor(HInstance, '光标N')
4、剩下的就是调用光标了。

您可以这样写：（D7下已经通过了）
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
var
strpos:string; //定义整形变量
begin
strpos:=format('X=%3d, Y=%3d',[x,y]); //获取鼠标指针的当前坐标
statusbar1.panels[0].text:=strpos; //输出鼠标指针的当前坐标
Edit1.Text := intToStr(x);
Edit2.Text := intToStr(y);
end;

窗体unit1全部源码为：

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ComCtrls;

type
TForm1 = class(TForm)
Edit1: TEdit;
StatusBar1: TStatusBar;
Edit2: TEdit;
Label1: TLabel;
Label2: TLabel;
procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
private

public

end;

var
Form1: TForm1;

implementation



procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
var
strpos:string; //定义整形变量
begin
strpos:=format('X=%3d, Y=%3d',[x,y]); //获取鼠标指针的当前坐标
statusbar1.panels[0].text:=strpos; //输出鼠标指针的当前坐标
Edit1.Text := intToStr(x);
Edit2.Text := intToStr(y);
end;

end.
------------------------------------------------
窗体上定义2个Edit组件，分别叫edit1和edit2,有定义一个statusbar组件叫statusbar1,对statusbar1进行编辑，起码有一个元素panels[0]，其width=150，这些是基本条件，你早就知道了。
按照以上做法就可以在 edit1上显示x值，edit2上显示y值，在状态条上显示x和y值
-----------------------------------------------