pls help me with this...

[abemad]

1. in client form ,i have problems in sending hash code (in hshlabel) to server..
2. in server form, hashlabel container from client form need to be fill in text1.txt..

can anybody fix my project.. it is my final year project.. n i need to submit it before this saturday..

this is my client code for data send

Private Sub SendFile(ByVal strFile As String)
On Error GoTo salah
Dim sizeFile As Long

strFilename = strFile
blnTransferStatus = True
sizeFile = FreeFile
Open strFilename For Binary As #sizeFile
Winsock1.SendData ("BOF" & LOF(sizeFile) & "|" & strFilename)

Exit Sub

salah:
txtErrorLog.Text = "Error [ " & Err.Number & " ] ~ " & Err.Description & Chr(13) & txtErrorLog.Text
End Sub

and this is for client's data arrival

Private Sub Winsock1_DataArrival(index As Integer, ByVal bytesTotal As Long)
Dim strData(Iconnection) As String
Dim hFiles(Iconnection) As Long


Winsock1(index).GetData strData(index)
Text1.Text = sdata
If (Not blnTransferStatus(index)) Then
If (Mid$(strData(index), 1, 3) = "BOF") Then
KIRA(index) = 0
blnTransferStatus(index) = True
strNamaFile(index) = strData(index)
Me.lstStatus.ListItems("k" & sRequestID(index)).ListSubItems(3) = Mid(strNamaFile(index), InStrRev(strNamaFile(index), "\") + 1)
Me.lstStatus.ListItems("k" & sRequestID(index)).ListSubItems(4).Text = Int(Mid(strData(index), 4, InStr(1, strData(index), "|") - 4) / 1024) & "KB"
Winsock1(index).SendData ("NEXT")
End If
Else
If (Mid$(strData(index), 1, 3) = "EOF") Then
blnTransferStatus(index) = False
Winsock1(index).SendData ("CLOSE")
Transfer(index) = 0
Else
hFiles(index) = FreeFile
Open App.Path & "\ReceiveFiles" & Mid(strNamaFile(index), InStrRev(strNamaFile(index), "\")) For Binary As #hFiles(index)
Seek #hFiles(index), LOF(hFiles(index)) + 1
Put #hFiles(index), , strData(index)
Close #hFiles(index)
KIRA(index) = KIRA(index) + 1
Transfer(index) = Transfer(index) + Len(strData(index))
Me.lstStatus.ListItems("k" & sRequestID(index)).ListSubItems(5).Text = Int(Transfer(index) / 1024) & "KB"
Winsock1(index).SendData ("NEXT")
End If
End If
End Sub

[abemad]

im sorry.. i think i just as the wrong question..
it is actually like this..
i wanna include send message into client form..
and
how do i show that message in text1.text in server form