vb在模块里如何使用WINSOCK控件传输文件？没有窗体

我这里有个无窗体的winsock模块 , 35k大 ,这里放不下,需要完整的话再联系我.以下是其中开头部分:

'Visual Basic 4.0 and above winsock declares and functions modules
'requires a msghook for async methods and functions. This declares
'file was originally obtained from the alt.winsock.programming news
'group, alot has been added and modified since that time. However I
'would like to credit the people on that newsgroup for the information
'they contributed, and now I pass it back...
'
'NOTES:
' I haven't been able to get the WSAAsyncGetXbyY functions to work properly
'under windows95(tm) aside from that ALL functions "SHOULD" work just fine.
'any questions about this file may be posted to alt.winsock.programming
' Topaz..
'
Option Explicit

'windows declares here
#If Win16 Then
Declare Function PostMessage Lib "User" (ByVal hWnd As Integer, ByVal wMs