All pastes #628728 Raw Edit

Miscellany

public text v1 · immutable
·published 2007-07-21 16:19 UTC
rendered paste body
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