[RaggiTech]

هنا سنظهر شاشة الحوار ولكن بامكانيات أكبر

كود :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

' الامكانيات كلها
ColorDialog1.FullOpen = True

If ColorDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
Me.BackColor = ColorDialog1.Color
End If
End Sub