VB code to use a colordialog to select a font color for the active child richtextbox from a menustip in the MDI parent

I am working on an MDI that contains a menu strip with a Color option which opens a colordialog. I am trying to change the font color for the richtextbox in the active child. I can change the font, but cannot get the colordialog to change the color for the text in the active child's richtextbox. My code in the MDI is as follows:

Dim color AsNew ColorDialogIf color.ShowDialog()= System.Windows.Forms.DialogResult.OK ThenMe.ActiveMdiChild.ForeColor = Color.ColorEndIf

Can someone tell me what I am doing wrong?

I have spent several hours trying to research this and cannot find anything that works in VB 2012.

Thanks so much to anyone who can help with this!

tsphil25