8-5.bas

来自「vb6.0编程实例详解,很详细的介绍,对学习VB有帮助」· BAS 代码 · 共 13 行

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

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