Change font color and style of the all label controls on the form using menu.

In the following example you can see that how you can change the font color and font style of all label controls using defined menu items.

The example requires a menu control and label controls on the windows form. See the above picture. User can change the fore color of the all used labels from the menu options.

Public Class Form1
    Private Sub BlackToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BlackToolStripMenuItem.Click
        For Each ctrl As Control In Me.Controls
            If TypeOf (ctrl) Is Label Then
                ctrl.ForeColor = Color.Black
            End If
        Next
    End Sub
 
    Private Sub BlueToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BlueToolStripMenuItem.Click
        For Each ctrl As Control In Me.Controls
            If TypeOf (ctrl) Is Label Then
                ctrl.ForeColor = Color.Blue
            End If
        Next
    End Sub
 
    Private Sub RedToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RedToolStripMenuItem.Click
        For Each ctrl As Control In Me.Controls
            If TypeOf (ctrl) Is Label Then
                ctrl.ForeColor = Color.Red
            End If
        Next
    End Sub
 
    Private Sub BoldToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BoldToolStripMenuItem.Click
        For Each ctrl As Control In Me.Controls
            If TypeOf (ctrl) Is Label Then
                ctrl.Font = New Font(ctrl.Font.FontFamily, ctrl.Font.Size, ctrl.Font.Style Xor FontStyle.Bold)
            End If
        Next
    End Sub
 
    Private Sub ItalicToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ItalicToolStripMenuItem.Click
        For Each ctrl As Control In Me.Controls
            If TypeOf (ctrl) Is Label Then
                ctrl.Font = New Font(ctrl.Font.FontFamily, ctrl.Font.Size, ctrl.Font.Style Xor FontStyle.Italic)
            End If
        Next
    End Sub
 
    Private Sub RegularToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RegularToolStripMenuItem.Click
        For Each ctrl As Control In Me.Controls
            If TypeOf (ctrl) Is Label Then
                ctrl.Font = New Font(ctrl.Font.FontFamily, ctrl.Font.Size, ctrl.Font.Style Xor FontStyle.Regular)
            End If
        Next
    End Sub
End Class