Dim loc1 As List(Of Control) ' Control-Array
 
    Private Sub Form1_Load(...) Handles MyBase.Load
        loc1 = New List(Of Control)(New Control() {startButton, stopButton, _
          DataInput, DataOutput})
    End Sub
 
    ' Control disabeln
    Private Sub disable(ByVal c As Control)
        c.Enabled = False
    End Sub
 
    Private Sub disableButton_Click(...) Handles disableButton.Click
        loc1.ForEach(AddressOf disable)
    End Sub

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist