module1.bas

来自「透过VB介面输入运算式子」· BAS 代码 · 共 13 行

Attribute VB_Name = "Sub"
Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Public SetTime As Date
Public SetChk As Boolean
Public BeepChk As Boolean

Public Sub BeepFunc()
SetChk = False
clock_frame.Shape1.FillColor = RGB(255, 0, 0)
Beep
End Sub

'盢肚