Imports System.Windows.Forms

Private Sub Command1_Click()
    Dim Test As New ColorDialog
    Test.AllowFullOpen = False
    Test.ShowHelp = True
    Test.Color = TextBox1.ForeColor
    If (Test.ShowDialog() = Windows.Forms.DialogResult.OK) Then
        TextBox1.ForeColor = Test.Color
    End If
End Sub