Dim flg As new windows.forms.ColorDialog()Dim clr As ColorIf flg.showdialog = DialogResult.OK Then clr = flg.Color
End If