Code:
    Private Sub btnSendFile_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSendFile.Click
        Dim strHostName, strIpAddress, strFilePath, strFileName As String '**********

        OFD1.ShowDialog() '**********
        strFilePath = OFD1.FileName '**********
        strFileName = OFD1.SafeFileName '**********

        Dim transfer As New FileTransferSend(strFilePath) '**********
        AddHandler transfer.TransferFailed, AddressOf TransferFailedHandler '**********
        AddHandler transfer.TransferProgressChanged, AddressOf TransferProgressChangedHandler '**********

        strHostName = System.Net.Dns.GetHostName() '**********
        strIpAddress = System.Net.Dns.GetHostByName(strHostName).AddressList(0).ToString() '**********

        prgStatus.Maximum = GetFileSize(strFilePath) '**********

        send_to_robot(strIpAddress & "," & transfer.GetPortNumber & "," & strFileName & "," & GetFileSize(strFilePath), "FLE#") '**********
    End Sub
HTML Code:
    Private Sub btnSendFile_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSendFile.Click
        Dim strHostName, strIpAddress, strFilePath, strFileName As String '**********

        OFD1.ShowDialog() '**********
        strFilePath = OFD1.FileName '**********
        strFileName = OFD1.SafeFileName '**********

        Dim transfer As New FileTransferSend(strFilePath) '**********
        AddHandler transfer.TransferFailed, AddressOf TransferFailedHandler '**********
        AddHandler transfer.TransferProgressChanged, AddressOf TransferProgressChangedHandler '**********

        strHostName = System.Net.Dns.GetHostName() '**********
        strIpAddress = System.Net.Dns.GetHostByName(strHostName).AddressList(0).ToString() '**********

        prgStatus.Maximum = GetFileSize(strFilePath) '**********

        send_to_robot(strIpAddress & "," & transfer.GetPortNumber & "," & strFileName & "," & GetFileSize(strFilePath), "FLE#") '**********
    End Sub
PHP Code:
    Private Sub btnSendFile_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSendFile.Click
        Dim strHostName, strIpAddress, strFilePath, strFileName As String '**********

        OFD1.ShowDialog() '**********
        strFilePath = OFD1.FileName '**********
        strFileName = OFD1.SafeFileName '**********

        Dim transfer As New FileTransferSend(strFilePath) '**********
        AddHandler transfer.TransferFailed, AddressOf TransferFailedHandler '**********
        AddHandler transfer.TransferProgressChanged, AddressOf TransferProgressChangedHandler '**********

        strHostName = System.Net.Dns.GetHostName() '**********
        strIpAddress = System.Net.Dns.GetHostByName(strHostName).AddressList(0).ToString() '**********

        prgStatus.Maximum = GetFileSize(strFilePath) '**********

        send_to_robot(strIpAddress & "," & transfer.GetPortNumber & "," & strFileName & "," & GetFileSize(strFilePath), "FLE#") '**********
    End Sub 
codehgh Code:
  1. Private Sub btnSendFile_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSendFile.Click

  2.         Dim strHostName, strIpAddress, strFilePath, strFileName As String '**********

  3.  
  4.         OFD1.ShowDialog() '**********

  5.         strFilePath = OFD1.FileName '**********

  6.         strFileName = OFD1.SafeFileName '**********

  7.  
  8.         Dim transfer As New FileTransferSend(strFilePath) '**********

  9.         AddHandler transfer.TransferFailed, AddressOf TransferFailedHandler '**********

  10.         AddHandler transfer.TransferProgressChanged, AddressOf TransferProgressChangedHandler '**********

  11.  
  12.         strHostName = System.Net.Dns.GetHostName() '**********

  13.         strIpAddress = System.Net.Dns.GetHostByName(strHostName).AddressList(0).ToString() '**********

  14.  
  15.         prgStatus.Maximum = GetFileSize(strFilePath) '**********

  16.  
  17.         send_to_robot(strIpAddress & "," & transfer.GetPortNumber & "," & strFileName & "," & GetFileSize(strFilePath), "FLE#") '**********

  18.     End Sub

Private Sub btnSendFile_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSendFile.Click
Dim strHostName, strIpAddress, strFilePath, strFileName As String '**********

OFD1.ShowDialog() '**********
strFilePath = OFD1.FileName '**********
strFileName = OFD1.SafeFileName '**********

Dim transfer As New FileTransferSend(strFilePath) '**********
AddHandler transfer.TransferFailed, AddressOf TransferFailedHandler '**********
AddHandler transfer.TransferProgressChanged, AddressOf TransferProgressChangedHandler '**********

strHostName = System.Net.Dns.GetHostName() '**********
strIpAddress = System.Net.Dns.GetHostByName(strHostName).AddressList(0).ToString() '**********

prgStatus.Maximum = GetFileSize(strFilePath) '**********

send_to_robot(strIpAddress & "," & transfer.GetPortNumber & "," & strFileName & "," & GetFileSize(strFilePath), "FLE#") '**********
End Sub