Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim res As String, Ret As String = ""
        Dim Str As String = "", Er As String = ""
        Dim f As New MDIFrm
        On Error GoTo mError
        writeIni(File, Section, Host, txtIP.Text)
        writeIni(File, Section, Port, txtPort.Text)
        writeIni(File, Section, Nms, txtZN.Text)
        writeIni(File, Section, Pasw, txtPasword.Text)
        m.Server = txtIP.Text 'Windows Host
        m.PORT = txtPort.Text
        m.Login()
        m.Xecute("ZN """ & txtZN.Text & """")
        m.Do("PAROL^SPRSAL", StrConv(txtPasword.Text, vbUpperCase), Ret, Er)
        If Er <> "" Then
            txtPasword.Text = ""
            txtPasword.Focus()
            MsgBox(Er, vbInformation)
            Exit Sub
        End If
        Me.Close() ' Здесь закрываю старую

        f.Show() ' Здесь открываю новую форму

        Exit Sub
mError:
        MsgBox("Error: " & Err.Description)
    End Sub