fuction.bas

利用了vb 当作显示画面

Attribute VB_Name = "Fuction"
Option Explicit
'盽计
Public Const StartB = "S"
'Public Const DataCntB = 200
Public Const PI = 3.1459
Public Const PI2 = PI * 2
Public Const DotCnt = 500
Public Const TimePerGrid = 5
'