Attribute VB_Name = "modDriver"
Option Explicit

Dim m_tagErrInfo                As TYPE_ERRORINFO      ' 錯誤信息

Public Sub update_status(ByVal message As String)
    On Error Resume Next
    
    'this updates the status window with any new messages
    frmServer.status.AddItem "[" & f_time & "] " & message
    frmServer.status.ListIndex = (frmServer.status.ListCount - 1)
End Sub