mdlsub.bas

来自「Test program for Hitachi Finger Vein」· BAS 代码 · 共 21 行

Attribute VB_Name = "mdlSub"
Option Explicit

Public Declare Function GetTickCount Lib "kernel32" () As Long

Public Sub DelayMSec(nLong As Long)
    Dim xCurrent As Long
    
    xCurrent = GetTickCount()
    
    While (GetTickCount() - xCurrent) < nLong
    Wend
End Sub

Public Sub CenterMe(frmForm As Object)
    frmForm.MousePointer = 11
    frmForm.Top = (Screen.Height - frmForm.Height) \ 2
    frmForm.Left = (Screen.Width - frmForm.Width) \ 2
End Sub