Eklenecek Nesneler;
CommonDialog1, Text1 (yazı buraya yazılacak)
(Yazı yazıldıktan sonra text kutusuna tek tıklamada renk paleti geliyor ve istediğimiz rengi seçip yazı rengini değiştirebiliyoruz...)
Private Sub Text1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    CommonDialog1.Flags = &H2
    CommonDialog1.Action = 3
    If Button = 1 Then 'Sol Tus Basılı İse
        Text1.ForeColor = CommonDialog1.Color
    Else
        Text1.BackColor = CommonDialog1.Color
    End If
End Sub