Dim dlg As New Windows.Forms.ColorDialogDim clr As ColorIf dlg.ShowDialog() = Windows.Forms.DialogResult.OK Then clr = dlg.ColorEnd If