Public Sub New(ByVal Automatico As Boolean)

        InitializeComponent()
        Auto = Automatico
        m_hostIP = txtHostIP.Text
        m_port = CInt(txtPort.Text)
        m_clientId = CInt(txtClientId.Text)
        m_ok = True

        Hide()
    End Sub

' e
Private Sub dlgConnect_Load(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles MyBase.Load
        If Auto = True Then

            Me.DialogResult = Windows.Forms.DialogResult.OK
            Me.Close()

        End If

 End Sub