module1.bas

一个简单的电子看板程序,可根据需要设定节拍时间

Attribute VB_Name = "Module1"
Public TactTime As Single
Public MorRestTimeFrom, MorRestTimeTo As Double
Public LauchTimeFrom, LauchTimeTo As Double
Public AftRestTimeFrom, AftRestTimeTo As Double
Public SupTimeFrom, SupTimeTo As Double
Public IniTime As Double

Public Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, ByVal bRevert As Long) As Long
Public Declare Function RemoveMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long