Attribute VB_Name = "Module2"
Option Explicit

Public Const TEST_START = &H20                ' 測試過程開始
Public Const TEST_DATA = &H21                 ' 測試數據正確性
Public Const TEST_UPLOAD = &H22               ' 測試上傳數據塊
Public Const TEST_DOWNLOAD = &H23             ' 測試下傳數據塊

Type mBuf
    mBuff(4099) As Byte
End Type

Public Declare Function GetTickCount Lib "kernel32" () As Long
Public Declare Function LoadLibrary Lib "kernel32" Alias "LoadLibraryA" (ByVal lpLibFileName As String) As Long