mftpsupport.bas

用vb开发的ftp客服端

Attribute VB_Name = "MFtpSupport"
Public p_intCounter As Integer
 
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