status.bas

Winsock的多客户服务器源代码,比较好的WINSOCK应用示例!

Attribute VB_Name = "status"
Sub update_status(message As String)
'this updates the status window with any new messages
main.status.AddItem "[" & f_time & "] " & message
main.status.ListIndex = (main.status.ListCount - 1)
End Sub