oh, thanks for your effort. i send an exe of your code today to the client who complained about the above error. he say your code works perfect.
so throughly searched my code for any diffrences form your impimentation.
finally i found a diffrent in my app. i had put a if condition in the connect event early to over come this error. so when it take that i works in his machine too now so now the problem is fixed and thank you for the effort and nice code.

Code:
Private Sub Winsock_Connect()
 If Winsock.State = sckConnected Then

   Dim arr() As String
    
    If chkRandomName.Value Then
        arr = PrepareImageUpload(txtImagePath.Text, m_Winsock, True) '// Create random image name
    Else
        arr = PrepareImageUpload(txtImagePath.Text, m_Winsock) '// Keep original image name
    End If
    
    Winsock.SendData arr(0) '// arr(0) = Header + Body in one piece
End If

End Sub
I Removed the red color code now and working.