moddriver.bas

排队分诊管理系统源代码！该代码使用VB6开发环境

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