Basic ColorPickerDialog alternative. Sub SomeButton_Click ColorPickerDialog.Show("Choose the color", Colors.Magenta) End Sub ColorPickerDialog.SelectedColor will be the last chosen color.