Public Class UserSelectColoCMB
    Private Sub Button25_Click(sender As Object, e As EventArgs) Handles Button9.Click, Button8.Click, Button7.Click, Button6.Click, Button5.Click, Button4.Click, Button32.Click, Button31.Click, Button30.Click, Button3.Click, Button29.Click, Button28.Click, Button27.Click, Button26.Click, Button25.Click, Button24.Click, Button23.Click, Button22.Click, Button21.Click, Button20.Click, Button2.Click, Button19.Click, Button18.Click, Button17.Click, Button16.Click, Button15.Click, Button14.Click, Button13.Click, Button12.Click, Button11.Click, Button10.Click, Button1.Click
        Dim btn As Button =sender
        SelectColor_btn .BackColor =btn.BackColor 
    End Sub

    Private Sub RGBok_btn_Click(sender As Object, e As EventArgs) Handles RGBok_btn.Click
         SelectColor_btn .BackColor =color.FromArgb ( r_txt.Value ,G_txt.Value,B_txt.Value)
    End Sub
End Class