Dim But As Button
        For Each c As Control In Me.Controls
            If TypeOf c Is Button Then
                But = CType(c, Button)
                If CStr(But.Tag) = "1" Then
                    But.Text  = "OFF"
                    But.Tag = 2
                End If
            End If
        Next

Gruß
Christoph