Private Sub Sollwertvorgabe_Automatisch(ByVal blnAutomatisch As Boolean)
 
    ' Typ:           Prozedur
    ' Zweck:         Button visuell betätigen
    ' Parameter:     blnAutomatisch ... False = Button nicht gedrückt
    '                 True  = Button gedrückt
    ' Rückgabewert:  -
 
    ' Abfrage: Automatische Vorgabe?
    If blnAutomatisch Then
      ' Button-Dummy ausblenden
      picVorgebenA.Visible = False
      ' Button-Dummy (betätigt) einblenden
      picVorgebenB.Visible = True
      ' Timer für die visuelle Betätigung des Buttons starten
      Me.tmrButtonAktivieren.Enabled = True
    Else
      ' Button-Dummy einblenden
      picVorgebenA.Visible = True
      ' Button-Dummy (betätigt) ausblenden
      picVorgebenB.Visible = False
      ' Timer für die visuelle Betätigung des Buttons stoppen
      Me.tmrButtonAktivieren.Enabled = False
    End If
 
  End Sub
 
  Private Sub tmrButtonAktivieren_Tick(...) Handles tmrButtonAktivieren.Tick
 
    ' Typ:           Tick-Ereignis
    ' Zweck:         Timer zum Anzeigen eines aktivierten Button
    ' Parameter:     sender ... Timer
    '                e ........ Tick-Argumente
    ' Rückgabewert:  -
 
    ' Schalter des Kanals visuell rücksetzen
    Me.Sollwertvorgabe_Automatisch(False)
 
  End Sub