Deze dialoog laat de gebruiker een kleur kiezen. De dialoog wordt getoond met ShowDialog, de geselcteerde kleur is Color. Bijvoorbeeld, als men de gebruiker de kleur van het formulier wil laten instellen:
Private Sub Button1_Click(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles Button1.Click
ColorDialog1.ShowDialog()
Me.BackColor = ColorDialog1.Color
End Sub
Of, wat ook kan (zonder eerst toe te voegen aan het formulier)
Private Sub Button1_Click(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim cd As New ColorDialog
cd.ShowDialog()
Me.BackColor = cd.Color
End Sub