class Form1
{
.
.
.
    public void CreateChildForm()
    {
       frm2 = new Form2();
       frm2.SetParentForm(this);
    }
.
.
.
}

dim conn as System.Data.SqlClient.SQLConnection.

Imports System.Data
...
dim con as  SqlClient.SQLConnection

Imports MyServer=System.Data.SqlClient
...
dim con as  MyServer.SQLConnection

Sub Создание_таблиц_на_сервере(ByVal dbtables As Hashtable, ByVal reader As OleDbDataReader, ByVal tblname As String, ByVal smo As SqlWrapper.MySMO)
        Dim dtClmn As DataTable = reader.GetSchemaTable
        If Not dbtables.ContainsKey(tblname.ToUpper) Then
            ULabel("такой таблицы на сервере еще нет, создаем")
            Dim createSql As System.Text.StringBuilder = New System.Text.StringBuilder
            createSql.Append("USE [" + My.Settings.cfgServerBase + "]" + vbNewLine)
            createSql.Append("CREATE TABLE " + tblname + "(" + vbNewLine)
            For Each r As DataRow In dtClmn.Rows
                createSql.Append("[" + r("ColumnName").ToString + "]")
                createSql.Append(" " + SqlWrapper.Net2SQLType(r("DataType").ToString, r("ColumnSize").ToString))
                If r("AllowDBNull").ToString.ToUpper = "TRUE" Then
                    createSql.Append(" NULL")
                End If
                'createSql.Append("," + vbNewLine)
            Next
            createSql.Append(") ON [PRIMARY]" + vbNewLine)
            Try
                smo.conn.ExecuteNonQuery(createSql.ToString)
            Catch ex As Exception

                MessageBox.Show(ex.Message, "Ошибка", MessageBoxButtons.OK, MessageBoxIcon.Error)
                Exit Sub
            End Try
        Else
            ' такая таблица уже есть
            'TODO: Дописать проверку соответствия полей двух таблиц

        End If
    End Sub

Dim bulk As SqlBulkCopy = New SqlBulkCopy(SqlWrapper.connstr)
AddHandler bulk.SqlRowsCopied, AddressOf BulkNextRowPortion
....
 Dim reader As OleDbDataReader = cmd.ExecuteReader ' любой реадер, я тут с MDB читаю.
....
bulk.DestinationTableName = tblname
bulk.NotifyAfter = Convert.ToInt32((rowcount / 5) + 1)
bulk.WriteToServer(reader)
 

 

Class MyTree
   inherits TreeView
.....
  Property IsLoadData() As Boolean
        Get
            Return _isLoadData
        End Get
        Set(ByVal value As Boolean)
            _isLoadData = value
            If value Then
                Me.Enabled = False
                BeginUpdate()
                Me.DrawMode = TreeViewDrawMode.Normal
            Else
                Me.Enabled = True
                EndUpdate()
                Me.DrawMode = TreeViewDrawMode.OwnerDrawText
            End If
        End Set
    End Property

 Protected Overrides Sub OnDrawNode(ByVal e As System.Windows.Forms.DrawTreeNodeEventArgs)
        If _isLoadData Then Return ' с этого начинаются у меня все подобные обработчики.
        ....
 End Sub

Public Sub LoadServerList(ByVal fname As String)
        Me.Nodes.Clear()
        Me.IsLoadData = True
        .... ' проводим загрузку данных
        Me.IsLoadData = False
End Sub

  Private Sub ВыборСделан(ByVal sender As System.Object, ByVal e As System.Windows.Forms.TreeViewEventArgs)
        If Not mtree.IsLoadData Then
            currentItem = CType(mtree.SelectedNode, ProjectTreeItem)
            ... ' бла-бла-бла
       End If
   End Sub

using System;
using System.Collections.Generic;
using System.Diagnostics;
using System.Drawing;

namespace ***
{
   /// <summary>
   /// Provides helper methods to layout tab buttons.
   /// </summary>
   public class TabLayoutBuilder
   {
      #region Properties.Protected

      /*
       * DefaultTabButtonSize
       */

      private Size _defaultTabButtonSize = Size.Empty;

      /// <summary>
      /// </summary>
      protected Size DefaultTabButtonSize
      {
         get
         {
            return _defaultTabButtonSize;
         }
      }

      /*
       * TabButtons
       */

      private List<TabButton> _tabButtons = null;

      /// <summary>
      /// </summary>
      protected List<TabButton> TabButtons
      {
         get
         {
            return _tabButtons;
         }
      }

      #endregion

      #region Properties.Protected.Virtual

      /*
       * SelectedTabButtonOffset
       */

      private static Rectangle _selectedTabButtonOffset = new Rectangle(-2, -2, 4, 4);

      /// <summary>
      /// Gets the <see cref="Rectangle"/> that determines the offset for the location and size
      /// of the selected tab button.
      /// </summary>
      protected virtual Rectangle SelectedTabButtonOffset
      {
         get
         {
            return _selectedTabButtonOffset;
         }
      }

      #endregion

      #region Methods.Public

      /// <summary>
      /// </summary>
      public void RebuildLayout(Rectangle tabStripBounds)
      {
         if (tabStripBounds == Rectangle.Empty)
         {
            return;
         }

              Debug.Assert(this.TabButtons != null, "this.TabButtons != null");

                        TabButton selectedTabButton = null;
         int currentLeftOffset = tabStripBounds.Left;
         int defaultWidth = this.TabButtons.Count * this.DefaultTabButtonSize.Width;
         int tabButtonWidth = this.DefaultTabButtonSize.Width;

         if (defaultWidth > tabStripBounds.Width)
         {
            tabButtonWidth = tabStripBounds.Width / this.TabButtons.Count;
         }

         foreach (TabButton tabButton in this.TabButtons)
         {
            tabButton.Width = tabButtonWidth;
            tabButton.Height = tabStripBounds.Height;
            tabButton.Top = tabStripBounds.Top;
            tabButton.Left = currentLeftOffset;
            
            currentLeftOffset += tabButton.Width;

            if (tabButton.Selected)
            {
               Debug.Assert(selectedTabButton == null, "selectedTabButton == null");
               selectedTabButton = tabButton;
            }
         }

         /* Selected */

         if (selectedTabButton != null && selectedTabButton.Enabled)
         {
            selectedTabButton.Top += this.SelectedTabButtonOffset.Top;
            selectedTabButton.Left += this.SelectedTabButtonOffset.Left;
            selectedTabButton.Width += this.SelectedTabButtonOffset.Width;
            selectedTabButton.Height += this.SelectedTabButtonOffset.Height;

            selectedTabButton.BringToFront();
         }
      }

      #endregion

      #region Constructors

      /// <summary>
      /// Initializes a new instance of the <see cref="TabLayoutBuilder"/> class.
      /// </summary>
      /// <exception cref="ArgumentNullException">
      ///   <para>
      ///      <paramref name="tabButtons"/> is <see langword="null"/>.
      ///   </para>
      /// </exception>
      public TabLayoutBuilder(List<TabButton> tabButtons, Size defaultTabButtonSize)
      {
         if (tabButtons == null)
         {
            throw new ArgumentNullException("tabButtons");
         }

         _defaultTabButtonSize = defaultTabButtonSize;
         _tabButtons = tabButtons;
      }

      #endregion
   }
}

' выбор расы в листбоксе
 Private Sub ChoiceRace(ByVal o As Object, ByVal e As EventArgs)
        If Racelst.SelectedItem Is Nothing Then Return ' и так бывает не смейтесь :)
        Dim race As RaceListItem = CType(Racelst.SelectedItem, RaceListItem)
        For Each tb As TabPage In TabControl1.TabPages
            mFindControl(tb, race.RaceNode)
        Next
 End Sub

Private Sub mFindControl(ByVal Ctrl As Control, ByVal race As XmlNode)
        For Each ct As Control In Ctrl.Controls
            If TypeOf (ct) Is GroupBox Then
                mFindControl(ct, race) ' заходим во все встреченные GroupBox
            End If
            If CStr(ct.Tag) <> "" Then
                Dim xmltag As String = CType(ct.Tag, String)
                Dim xnode As XmlNode = race.SelectSingleNode(xmltag)
                If Not xnode Is Nothing Then
                    If TypeOf (ct) Is TextBox Then
                        Dim tb As TextBox = CType(ct, TextBox)
                        tb.Text = xnode.InnerText
                    ElseIf TypeOf (ct) Is Panel Then
                        Dim txtcolor() As String = xnode.InnerText.Split(","c)
                        ct.BackColor = Color.FromArgb(CInt(txtcolor(0)), CInt(txtcolor(1)), CInt(txtcolor(2)))
                    ElseIf TypeOf (ct) Is ComboBox Then
                        Dim tb As ComboBox = CType(ct, ComboBox)
                        tb.SelectedIndex = CInt(xnode.InnerText)
                    End If
                    ct.Enabled = True
                Else
                    If TypeOf (ct) Is TextBox Then
                        'CType(ct, TextBox).Text = ""
                    End If
                    ct.Enabled = False
                End If
            End If
        Next
    End Sub

Public Class PhoneticRule
            Public BeginningOnly As Boolean
            Public Condition As Integer() = New Integer(256) {}
            Public ConditionCount As Integer = 0
            Public ConsumeCount As Integer
            Public EndOnly As Boolean
            Public Priority As Integer
            Public ReplaceMode As Boolean = False
            Public ReplaceString As String
        End Class
        ' и его коллекция.
        Friend Class PhoneticRuleCollection
            Inherits System.Collections.Generic.List(Of PhoneticRule)
        End Class