mftpsupport.bas

vb网络通信协议,参考例程

Attribute VB_Name = "MFtpSupport"
'计数器变量
Public p_intCounter As Integer
'settimer函数中的回调函数，每次将计数器的值增加一
Sub TimerProc(ByVal hwnd As Long, ByVal uMsg As Long, ByVal idEvent As Long, ByVal dwTime As Long)

    p_intCounter = p_intCounter + 1

End Sub