Public IPanel() As Panel = {Me.pAEin, Me.pBEin, Me.pCEin, Me.pDEin, _
      Me.pEEin, Me.pFEin, Me.pGEin, Me.pHEin}
    Public OPanel() As Panel = {Me.pAAus, Me.pBAus, Me.pCAus, Me.pDAus, _
    Me.pEAus, Me.pFAus, Me.pGAus, Me.pHAus}
    Public ILabel() As Label = {Me.lbAein, Me.lbBein, Me.lbCein, Me.lbDein, _
    Me.lbEein, Me.lbFein, Me.lbGein, Me.lbHein}
    Public OLabel() As Label = {Me.lbAaus, Me.lbBaus, Me.lbCaus, Me.lbDaus, _
    Me.lbEaus, Me.lbFaus, Me.lbGaus, Me.lbHaus}

    Public Sub MaschinenPanelAnzeigen()
        Dim i As Integer
 
        For i = 0 To 7
            If MMI.MaschineZuordnung(i + 1).Zustand = False Then
                Me.IPanel(i).Visible = False
                Me.OPanel(i).Visible = False
                Me.ILabel(i).Visible = False
                Me.OLabel(i).Visible = False
            Else
                Me.IPanel(i).Visible = True
                Me.OPanel(i).Visible = True
                Me.ILabel(i).Visible = True
                Me.OLabel(i).Visible = True
            End If
        Next
 
    End Sub

mfg
rt