Public Class ManagerForm
    Private Sub ManagerForm_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.Text = Main_Form.programName & Main_Form.programVer & "-ManagerForm"
        pnOnoff.BackColor = Color.Yellow

        If Main_Form.mqttBroker = String.Empty Or Main_Form.mqttTopic = String.Empty Then
            pnOnoff.BackColor = Color.Red
        Else
            If Main_Form.mqttNowConnect Then
                pnOnoff.BackColor = Color.Green
            Else
                pnOnoff.BackColor = Color.Red
            End If
        End If

    End Sub

    Private Sub btnMqtt_Click(sender As Object, e As EventArgs) Handles btnMqtt.Click
        If MqttForm.ShowDialog = DialogResult.OK Then
            If Main_Form.mqttConnect() Then
                pnOnoff.BackColor = Color.Green
            Else
                pnOnoff.BackColor = Color.Red
            End If
        End If
    End Sub
End Class