8-5.bas

vb6.0编程实例详解,很详细的介绍,对学习VB有帮助

Attribute VB_Name = "Module1"
Option Explicit
'自定义结构用于保存点数据
Public Type POINT
    x As Long
    y As Long
End Type

'指定点与鼠标输入点的最大误差
'单位为PictureBox的缺省单位
Public Const MAXDISTANCE = 40