Private Sub NewItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NewItem.Click
         sw = False
        frmCompanyNew.newCompany(sw)

    End Sub

Public Class CompanyFormNew
    Inherits System.Windows.Forms.Form

    Public Shared cmdNewCompany As New SqlClient.SqlCommand
    Public Shared cnSqlServer As New SqlClient.SqlConnection(Sprav.BuildCnnStr())

    Private Sub CompanyFormNew_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

                cbCompanyTip.DataSource = MainForm.dsCompanyTip.Tables("CompanyTipTbl")
        cbCompanyTip.DisplayMember = "CompanyTipId"
         'cbCompanyTip.ValueMember = "CompanyTipId" 

        cbMenag.DataSource = MainForm.dsMenag.Tables("MenagerTbl")
        cbMenag.DisplayMember = "LogName"
         'cbMenag.ValueMember = "LogName" 

        cbCity.DataSource = MainForm.dsCity.Tables("CityTbl")
        cbCity.DisplayMember = "City"
        cbCity.ValueMember = "CityId"

        cbCityPlase.DataSource = MainForm.dsCity.Tables("CityTbl")
        cbCityPlase.DisplayMember = "City"
        cbCityPlase.ValueMember = "CityId"


    End Sub


     'Функция для подготовки формы frmCompanyNew для ввода новой компании. 
    Public Sub newCompany(ByVal sw As Boolean)
        Try
            
             'Очищаем TextBox. 
            Dim oCurr As Object
            For Each oCurr In TabControl1.Controls()
                Dim myControl As Object
                For Each myControl In oCurr.controls()
                     'Обрабатываем контролы в GroupBox ах. 
                    If TypeOf myControl Is GroupBox Then
                        Dim myGroupBox As Object
                        For Each myGroupBox In myControl.controls()
                            If TypeOf myGroupBox Is TextBox Then
                                myGroupBox.clear()
                            End If
                        Next
                    End If
                     'Обрабатываем TextBox 
                    If TypeOf myControl Is TextBox Then
                        myControl.Clear()
                    End If
                Next
            Next

        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try


         'Выбираем первую страницу на TabControl1. 
        TabControl1.SelectedIndex =  0 

        cmdNewCompany.Connection = cnSqlServer
        cmdNewCompany.CommandType = CommandType.StoredProcedure
        cmdNewCompany.CommandText = "spNewCompany"

        .
        .
        .

         'Помещаем в заголовок "Ввод новой компании.". 
        Me.Text = "Ввод новой компании."


        Me.ShowDialog()

    End Sub




    Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click

        Try
            If (Txtname.Text <> "" And txtNum.Text <> "" ) Then


                .
                .
                .



                cnSqlServer.Open()

                cmdNewCompany.ExecuteNonQuery()

                cnSqlServer.Close()

                 'Очищаем коллекцию параметров команды. 
                cmdNewCompany.Parameters.Clear()

                Me.Close()

            Else
                MessageBox.Show("Введите все необходимые поля.")
            End If

        Catch ex As SqlClient.SqlException
            MessageBox.Show(ex.Message)
        End Try

    End Sub

    End Class