Dim tb = e.Item.FindControl("TextBox1")

<Grid
 <ScrollViewer>
  <Menu Height="507" Width="132">
   <MenuItem>Раздел 1</MenuItem>
   <MenuItem>Раздел 2</MenuItem>
   <MenuItem>Раздел 3</MenuItem>
  </Menu>
 </ScrollViewer>
 <StackPanel/>
</Grid>

может у кого готовый шаблон есть :)

Private Sub Form_DGV_MDF_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        
        Dim Con As New OleDb.OleDbConnection("Provider=SQLOLEDB;Data Source=.\SQLEXPRESS;AttachDbFilename=D:\2\WinApp\WinApp\Data\NORTHWIND.MDF;Integrated Security=True;User Instance=True;Integrated Security=SSPI")
        Dim SqlCom As OleDb.OleDbCommand ' Переменная для Sql запросов
        Dim DT As New Data.DataTable ' Таблица для хранения результатов запроса
        Dim DA As OleDb.OleDbDataAdapter ' Адаптер для заполнения таблицы после запроса

        DT.Clear() 'Очищаем таблицу
        SqlCom = New OleDb.OleDbCommand("SELECT * FROM [Customers]", Con) ' Указываем строку запроса и привязываем к соединению
        Con.Open() ' Открываем соединение
        ' Невозможно открыть пользовательскую базу данных по умолчанию. 
        ' Не удалось выполнить вход.
        ' Недопустимый атрибут строки подключения
       
        ' 27.07.2015 Не удалось открыть физический файл 
        ' "D:\2\WinApp\WinApp\Data\NORTHWIND.MDF". Ошибка операционной системы 5: 
        ' "5(Отказано в доступе.)".
        ' Недопустимый атрибут строки подключения
        ' в ОКНе "ОБОЗРЕВАТЕЛЬ СЕРВЕРОВ" в среде STUDIO'2010 имеется доступ к
        ' таблицам, представлениям, хранимым процедурам и т.д.
        SqlCom.ExecuteNonQuery() 'Выполняем запрос
        DA = New OleDb.OleDbDataAdapter(SqlCom) 'Через адаптер получаем результаты запроса
        DA.Fill(DT) ' Заполняем таблицу результатми
        Me.DGV1.DataSource = DT ' Привязываем Грид к источнику данных
        Con.Close() ' Закрываем соединение
    End Sub

Private Sub Form_DGV_MDF_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        
        Dim Con As New OleDb.OleDbConnection("Provider=SQLOLEDB;Data Source=.\SQLEXPRESS;AttachDbFilename=D:\2\WinApp\WinApp\Data\NORTHWIND.MDF;Integrated Security=True;User Instance=True;Integrated Security=SSPI")
        Dim SqlCom As OleDb.OleDbCommand ' Переменная для Sql запросов
        Dim DT As New Data.DataTable ' Таблица для хранения результатов запроса
        Dim DA As OleDb.OleDbDataAdapter ' Адаптер для заполнения таблицы после запроса

        DT.Clear() 'Очищаем таблицу
        SqlCom = New OleDb.OleDbCommand("SELECT * FROM [Customers]", Con) ' Указываем строку запроса и привязываем к соединению
        Con.Open() ' Открываем соединение
        ' Невозможно открыть пользовательскую базу данных по умолчанию. 
        ' Не удалось выполнить вход.
        ' Недопустимый атрибут строки подключения
       
        ' 27.07.2015 Не удалось открыть физический файл 
        ' "D:\2\WinApp\WinApp\Data\NORTHWIND.MDF". Ошибка операционной системы 5: 
        ' "5(Отказано в доступе.)".
        ' Недопустимый атрибут строки подключения
        ' в ОКНе "ОБОЗРЕВАТЕЛЬ СЕРВЕРОВ" в среде STUDIO'2010 имеется доступ к
        ' таблицам, представлениям, хранимым процедурам и т.д.
        SqlCom.ExecuteNonQuery() 'Выполняем запрос
        DA = New OleDb.OleDbDataAdapter(SqlCom) 'Через адаптер получаем результаты запроса
        DA.Fill(DT) ' Заполняем таблицу результатми
        Me.DGV1.DataSource = DT ' Привязываем Грид к источнику данных
        Con.Close() ' Закрываем соединение
    End Sub

Public Class Class1
    Public ttext As String
    ' Public generaldee As Process() = Process.GetProcesses
    Public Sub ant(ByVal t As String)
        ' Dim ttext As String
        Dim generaldee As Process() = Process.GetProcesses
        Dim i As Integer
        For Each prog As Process In Process.GetProcesses
            If generaldee(i).ProcessName = "chrome" Then
                t = "кроv"
                End If
            ttext = t
        Next

   Dim moyClass1 As New Class1
        moyClass1.ant(0)
        antее = moyClass1.ttext
        MsgBox(moyClass1.ttext)

data source=ИМЯ-ПК\SQLEXPRESS;initial catalog=NORTHWIND;Trusted_Connection=True;

Server=.\SQLEXPRESS;AttachDbFilename=D:\2\WinApp\WinApp\Data\NORTHWIND.MDF;Database=NORTHWIND;Trusted_Connection=Yes;

Public Class Class1

    Public ttext As String

    Public Sub ant(ByVal t As String)
        'Dim generaldee As Process() = Process.GetProcesses 'лишнее, т.к. используется For Each - перебор по элементами (без использования индекса - index - i)
        'Dim i As Integer
        For Each prog As Process In Process.GetProcesses()
            'If generaldee(i).ProcessName = "chrome" Then 'не будет работать правильно, т.к. i не увеличивается :)
            'в переменной prog будет текущий элемент списка Process.GetProcesses()
            If prog.ProcessName = "chrome" Then 'нужно удостовериться, что имя chrome будет именно таким
            'If prog.ProcessName.Equals("chrome", StringComparison.OrdinalIgnoreCase) = True Then 'если имя всегда chrome, то можно проверять без учета регистра, на всякий случай
                'смысла в переменной t в данном случае нет
                t = "кроv"
                Me.ttext = t 'Me - чтобы было понято, что речь идет о текущем экземпляре класса
                'если нужно завершить перебор, то можно сделать
                'Exit For
            End If
            'ttext = t - если оставить здесь, как показано в коде в вопросе,
            'то значение ttext может быть не тем, что ожидается
        Next
    End Sub

End Class

public partial class Form1 : Form
{

  private Label DraggingLabel = null;

  public Form1()
  {
    InitializeComponent();
  }

  private void Form1_Load(object sender, EventArgs e)
  {
    // разрешаем перетаскивание
    label1.AllowDrop = true;
    label2.AllowDrop = true;
    label3.AllowDrop = true;

    // обработчик нажатия кнопок мышки
    label1.MouseDown += label_MouseDown;
    label2.MouseDown += label_MouseDown;
    label3.MouseDown += label_MouseDown;

    // обработчик при перетаскивании объекта в пределы label
    label1.DragEnter += label_DragEnter;
    label2.DragEnter += label_DragEnter;
    label3.DragEnter += label_DragEnter;

    // обработчик завершения перетаскивания
    label1.DragDrop += label_DragDrop;
    label2.DragDrop += label_DragDrop;
    label3.DragDrop += label_DragDrop;
  }

  private void label_MouseDown(object sender, MouseEventArgs e)
  {
    if (e.Button == System.Windows.Forms.MouseButtons.Left)
    {
      // запоминаем ссылку на элемент, который тащим
      this.DraggingLabel = (Label)sender; 
      // начинаем перетаскивание
      this.DoDragDrop(this.DraggingLabel.Text, DragDropEffects.Copy);
    }
  }

  private void label_DragEnter(object sender, DragEventArgs e)
  {
    if (e.Data.GetDataPresent(DataFormats.Text))
    {
      e.Effect = DragDropEffects.Copy;
    }
  }

  private void label_DragDrop(object sender, DragEventArgs e)
  {
    // куда притащили
    var currentLabel = (Label)sender; 

    // просто меняем значения двух label
    string labelText = this.DraggingLabel.Text;
    this.DraggingLabel.Text = currentLabel.Text;
    currentLabel.Text = labelText;
  }

}

вместо Imports System.Data.OleDb  использую
Imports System.Data.SqlClient

Dim Con As New SqlClient.SqlConnection("Provider=SQLClient;Data Source=.\SQLEXPRESS;AttachDbFilename=D:\2\WinApp\WinApp\Data\Data\NORTHWIND.MDF;User Instance=True;Integrated Security=SSPI")
        ' Ключевое слово не поддерживается: "provider".
        
        ' из свойств я скопировал строку подключения:
        ' Data Source=.\SQLEXPRESS;AttachDbFilename=D:\2\WinApp\WinApp\Data\NORTHWIND.MDF;Integrated Security=True;User Instance=True
        ' D:\2\WINAPP\WINAPP\DATA\NORTHWIND.MDF
        
' из нижеидущей строки выбросил Provider=SQLOLEDB;
        '+-11.1 Dim Con As New SqlClient.SqlConnection("Data Source=.\SQLEXPRESS;AttachDbFilename=D:\2\WinApp\WinApp\Data\NORTHWIND.MDF;Integrated Security=SSPI")
        ' Невозможно открыть пользовательскую базу данных по умолчанию. 
        ' Не удалось выполнить вход.
        ' Ошибка входа пользователя "BEST-VASYL\Vasyl".

        '+-11.2 Dim Con As New SqlClient.SqlConnection("Provider=sqlclient;Data Source=.\SQLEXPRESS;AttachDbFilename=D:\2\WinApp\WinApp\Data\NORTHWIND.MDF;Integrated Security=SSPI")
        ' Ключевое слово не поддерживается: "provider".
        ' Persist Security Info=False;Integrated Security=true;Initial Catalog=Northwind;server=(local)

        Dim SqlCom As SqlClient.SqlCommand ' Переменная для Sql запросов
        Dim DT As New Data.DataTable ' Таблица для хранения результатов запроса
        Dim DA As SqlClient.SqlDataAdapter ' Адаптер для заполнения таблицы после запроса
        SqlCom = New SqlClient.SqlCommand("SELECT * FROM [Customers]", Con)
        Con.Open() ' Открываем соединение
        ' Невозможно открыть пользовательскую базу данных по умолчанию. 
        ' Не удалось выполнить вход.
        ' Недопустимый атрибут строки подключения

        SqlCom.ExecuteNonQuery() 'Выполняем запрос
        DA = New SqlClient.SqlDataAdapter(SqlCom) 'Через адаптер получаем результаты запроса
        DA.Fill(DT) ' Заполняем таблицу результатми
        Me.DGV1.DataSource = DT ' Привязываем Грид к источнику данных
        Con.Close() ' Закрываем соединени

'EditButton
    Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
        conn = New SqlConnection("Data Source=.;Initial Catalog=SDataBase;User ID=sa;Password=123456")
        myCommand.Connection = conn
        Try
            If conn.State <> ConnectionState.Open Then conn.Open()
            Dim s As String
            s = "UPDATE CutomersTbl SET FirstName = @FirstName,CustUserName = @CustUserName,City = @City,Field = @Field,Phone = @Phone,Balance = @Balance,AYS_RAYS = @AYS_RAYS,Tarix = @Tarix,Procents = @Procents,Others = @Others WHERE CustomersID = @CustomersID"
            Using myCommand As New SqlClient.SqlCommand(s, conn)
                myCommand.Parameters.Add("@FirstName", SqlDbType.NVarChar).Value = FirstName.Text
                myCommand.Parameters.Add("@CustUserName", SqlDbType.NVarChar).Value = CustUserName.Text
                myCommand.Parameters.Add("@City", SqlDbType.NVarChar).Value = City.Text
                myCommand.Parameters.Add("@Field", SqlDbType.NVarChar).Value = Field.Text
                myCommand.Parameters.Add("@Phone", SqlDbType.NVarChar).Value = Phone.Text
                myCommand.Parameters.Add("@Balance", SqlDbType.NVarChar).Value = Balance.Text
                myCommand.Parameters.Add("@AYS_RAYS", SqlDbType.NVarChar).Value = AYS_RAYS.Text
                myCommand.Parameters.Add("@Tarix", SqlDbType.DateTime).Value = DateTimePicker1.Value
                myCommand.Parameters.Add("@Procents", SqlDbType.NVarChar).Value = Procents.Text
                myCommand.Parameters.Add("@Others", SqlDbType.NVarChar).Value = Others.Text
                myCommand.Parameters.Add("@CustomersID", SqlDbType.Int).Value = DataGridView1.SelectedRows(0).Cells(0).Value
                i = myCommand.ExecuteNonQuery()
            End Using
            If (i >= 0) Then
                MsgBox("" & i & " Edit")
                LoadData()
                TxtClear()
                DataGridView1_SelectionChanged(sender, e)
            End If
            If conn.State <> ConnectionState.Closed Then conn.Close()
        Catch ex As Exception
        End Try
    End Sub   


'TextBox Search
    Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged
        Button4.Enabled = False
        Dim dt As DataTable = DirectCast(DataGridView1.DataSource, DataTable)
        dt.DefaultView.RowFilter = "FirstName Like '%" & TextBox1.Text.ToString() & "%' or CustUserName Like '%" & TextBox1.Text.ToString() & "%' or City Like '%" & TextBox1.Text.ToString() & "%' or Field like '%" & TextBox1.Text.ToString() & "%' or Phone Like '%" & TextBox1.Text.ToString() & "%' or Balance Like '%" & TextBox1.Text.ToString() & "%' or AYS_RAYS Like '%" & TextBox1.Text.ToString() & "%' or Procents Like '%" & TextBox1.Text.ToString() & "%' or Others Like '%" & TextBox1.Text.ToString() & "%'"
        LoadData()
    End Sub

using (TcpClient client = new TcpClient())
            {
                client.Connect(textBox3.Text, 80);

                using (NetworkStream stream = client.GetStream())
                {
                    using (BinaryWriter writer = new BinaryWriter(stream))
                    {
                        writer.Write(textBox1.Text);
                    }
                }
            }

var myTCP = new TcpListener(IPAddress.Parse("127.0.0.1"), 8888);
myTCP.Start();

while (true)
{
 if (myTCP.Pending())
 {
    using (Socket myClient = myTCP.AcceptSocket())
    {
      byte[] b = new byte[mySocket.ReceiveBufferSize];
      int len = 0;
      using (MemoryStream m = new MemoryStream())
      {
        while (mySocket.Poll(1000000, SelectMode.SelectRead) && (len=mySocket.Receive(b, mySocket.ReceiveBufferSize, SocketFlags.None)) > 0)
        {
          m.Write(b, 0, len);
        }
        Console.WriteLine(Encoding.UTF8.GetString(m.ToArray()));
      }
    }
  }
}