[vb.net] TryCast, Ctype

    Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button100.Click
        dbfind(Button100.Text)
        TextBox1.Text = Button100.Text

        Dim button As Button = TryCast(sender, Button)
        colorset(button)

    End Sub

    Private Sub colorset(ByVal sender As Object)

        Dim button As Button = TryCast(sender, Button)

        If button.BackColor = Color.Aqua Then
            Exit Sub
        End If
        For i As Integer = 100 To 106

            Dim t As Button = CType(Me.Controls("Button" & i.ToString()), Button)

            If t.BackColor = Color.Aqua Then
                t.BackColor = Color.FromKnownColor(KnownColor.Control)
                '  t.BackColor = Color.LightCyan
            ElseIf t.BackColor = Color.LightCyan Then
                '  t.BackColor = Color.AntiqueWhite
            Else
                t.BackColor = Color.FromKnownColor(KnownColor.Control)
            End If

        Next

        If button IsNot Nothing Then
            '  MessageBox.Show("You pressed " + button.Name)

            button.BackColor = Color.Aqua
        End If
    End Sub