现有个问题不知道如何更好的实现,请教下大家：

1.在直角坐标系中画点,坐标是通过读取外部文件得到,这些点除了坐标以外还有其他不显示的讯息
2.点击画出来的点可以知道对应的是文件中哪个点,这样就可以知道该点的附属信息了.

我的想法(暂时还没有做)是用picturebox和pset可以方便的画点,通过point方法获得点的颜色与背景色不同.再根据此点的位置计算出对应的实际坐标,通过循环找出对应的点.

因为点数比较多（5000）,有没有更简便的方法？

不知道点能画多大，另外鼠标按下事件中，会返回鼠标的x,y坐标的啊，也许可以利用一下

PictureBox属性：SacleMode=3:ScaleHeight=363:ScaleWidth=596:DrawWidth=2
我就是想点画完以后,可以自由点击任一点，高亮显示并闪烁,同时在程序中获得该点的其他信息...
有没有谁给点指导？

Public Sub 指示点(x As Variant, y As Variant)
Dim i As Long
Shape1.Visible = True
For i = 20 To 4 Step -1
    Shape1.Left = x * 操作比例 - i
    Shape1.Top = y * 操作比例 - i
    Shape1.Width = 2 * i
    Shape1.Height = 2 * i
    Call 延时(0.05)
Next i
Shape1.Visible = False
End Sub

我以前做了一个程序里的 指示点的 办法，用一个 shape 做成圆圈，要指示点时，在这个点上进行缩小，很显眼。
至于鼠标下面是那个点，我的建议是，这 5000 个点，放在表里面，然后根据鼠标坐标查表，得出鼠标下面是那个点，然后点击后再进行 指示点，显示这个点的详细信息。
不建议用取点颜色来决定当前位置是否有点。

谢谢提示~我在试.

这样Sharp的圆心对不上原来的Pset点,放大圆偏离了原来了Pset点

用第三方控件，Tchart,什么都可以改，你能想到的人家都想到了，建议多学学!