it worked with me as like this
Private Sub CloseDownbtn_Click(sender As Object, e As EventArgs) Handles CloseDownbtn.Click
Dim PassCodeKeypad As New MfgControl.AdvancedHMI.Controls.Keypad(300) With {
.PasswordChar = True,
.ForeColor = Color.Red,
.Text = "ENTER PASSCODE"
}
Dim dr As DialogResult = PassCodeKeypad.ShowDialog()
If dr = DialogResult.Cancel Then Exit Sub
If PassCodeKeypad.Value <> "1234" Then
MsgBox("INVALID PASSCODE!")
Else
eGroundTCP.BeginWrite("02080", 1, New String() {"1"})
eGroundTCP.BeginWrite("02082", 1, New String() {"1"})
eF1TCP.BeginWrite("02080", 1, New String() {"1"})
eF1TCP.BeginWrite("02082", 1, New String() {"1"})
eF22TCP.BeginWrite("02080", 1, New String() {"1"})
End If
End Sub
i opened the basicbutton.vb
and used the toggle code
thanks for your help