In VB.Net - How do I offer the ability for user to change the font of any individual control?

I can place the Font Dialog on the form. But in runtime the whole form is changed when this is called. How do I allow the user to choose which button, textbox, etc they want to change?In VB.Net - How do I offer the ability for user to change the font of any individual control?
You can click the button and have the font change on that. Or you can compare the control that you want with that one the page and change the font that way. Example;

If CType(lblTime, Label).Text = ';One'; Then

...

End If



But you will have to put that through a loop...



EXAMPLE:THIS IS TO LOOP THROUGH BUTTONS



Private Sub btnListAll_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnListAll.Click

On Error Resume Next

'Looping through all the buttons using this code



'For Each GetButton as Control in Me.Controls

'If TypeOf GetButton Is Button then

'txtGetTest.Text %26amp;= GetButton.text %26amp; vbCrLf

'End If

'Next



'The problem is the code will NOT see the

'controls in the GroupBox's



'Reset the counter

m_ControlCount = 0

'Clear the textbox

txtGetText.Clear()

'Goto the user create sub

'Get the objects in Me( form )

ShowAll(Me)



'If code said ';ShowAll(Me.GroupBox1)';

'The oaContainer would return all the

'controls in the Groupbox ONLY



End Sub

Sub ShowAll(ByVal oaContainer As Control)

On Error Resume Next

'Get all the controls in the control area specified (Me)

For Each cntrl As Control In oaContainer.Controls

'If the current control in a button and

'the control is not blank then

If TypeOf cntrl Is Button AndAlso _

Not (cntrl.Text = Nothing) Then

'Add one(1) to the counter

m_ControlCount += 1

'Add counter and the

'control name to the nextbox

'START a new line

txtGetText.Text %26amp;= _

m_ControlCount %26amp; ';) '; %26amp; cntrl.Text %26amp; vbCrLf



End If

'Input this to show ALL the controls

'on the form

ShowAll(cntrl)

'Refresh the control

'IF Refresh() is NOT implemented

'Error will occur when user presses another button

cntrl.Refresh()

Next



End Sub