[5000]

يختار المستخدم اللون من مربع حوار الالوان 

لحفظ اللون يجب تحويله الى رقم استخدم Color.ToArgb

Dim c As Integer
Using colordialog As New ColorDialog
    If colordialog.ShowDialog = Windows.Forms.DialogResult.OK Then
        c = colordialog.Color.ToArgb
        MsgBox( c )
    End If
End Using



ولارجاع اللون من رقم الى لون استخدم Color.FromArgb

 Me.BackColor = Color.FromArgb( c )