[Shade0001]

استخدم هذا الكود لتغيير مجموعة ازرار من BTNRG1 الى BTNRG11 

 Public Sub ColorSelectRG(ByVal colorr As Integer, ByVal colorg As Integer, ByVal colorb As Integer)
        Try
            Dim numColor As Integer = 28
            For i As Integer = 1 To 11
                Dim btn As Button = CType(Me.Controls("BTNRG" & i.ToString()), Button)
                If btn IsNot Nothing Then
                    btn.BackColor = Color.FromArgb(colorr, colorg, colorb)
                    colorg += numColor
                End If
            Next
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Sub

المشكلة لا تتغير الالوان بالشكل المطلوب ولا يظهر خطا ولكن قبل استخدام IF في الكود كان يظهر خطا لم اعرف سببة