[Shade0001]

بحث مالقيت   كتبته بس نفس المشكلة ما يصير شي

1-

Private Sub COLORSELECTRG(ByRef COLORR As Integer, ByRef COLORG As Integer, ByRef COLORB As Integer)

        Dim NUMCOLOR As Integer = 28

        Dim I As Integer = 1

        For Each btn As Button In Me.Controls.OfType(Of Button)().Where(Function© c.Name.StartsWith("BTNRG"))

            Dim NUMBTN As Integer = I

            NUMCOLOR += 28

            btn.BackColor = Color.FromArgb(COLORR, COLORG, COLORB)

            COLORG += NUMCOLOR

            I += 1

        Next

    End Sub

2-

    Private Sub COLORSELECTRG(ByRef COLORR As Integer, ByRef COLORG As Integer, ByRef COLORB As Integer)

        Dim NUMCOLOR As Integer = 28

        Dim I As Integer = 1

        For Each ctrl As Control In Me.Controls

            If TypeOf ctrl Is Button AndAlso ctrl.Name.StartsWith("BTNRG") Then

                Dim btn As Button = DirectCast(ctrl, Button)

                Dim NUMBTN As Integer = I

                NUMCOLOR += 28

                btn.BackColor = Color.FromArgb(COLORR, COLORG, COLORB)

                COLORG += NUMCOLOR

                I += 1

            End If

        Next

    End Sub