Cita:
Iniciado por erbuson 
Hola:
Creo que deberías probar así:
Private Sub Command4_Click()
CommonDialog1.ShowColor
RichTextBox1.SelStart = 0
RichTextBox1.SelLength = Len(RichTextBox1.Text)
RichTextBox1.SelColor = CommonDialog1.Color
End Sub
La propiedad SelColor es para el texto seleccionado, por lo tanto lo que este código hace como puedes ver es antes de asignar la propiedad seleccionar todo el texto y así parece funcionar.
Respecto a los ficheros INI, que parece descartas, si quieres dale un vistazo al siguiente enlace que utiliza las funciones en un Modulo en lugar de una clase y funciona perfectamente. Tu mismo.
[URL="http://www.recursosvisualbasic.com.ar/htm/listado-api/159-leer-grabar-archivo-ini.htm"]Leer y Grabar archivos INI[/URL]
Saludos
hola disculpa lo tarde que te respondi mira me funciono al 1000% muchisimas gracias erbuson eres el mejor