Changing Fonts at Runtime.

Private Sub Face(ByVal a As Integer)
        'Style 0 regular, 1 Bold, 2 Italic, 3 Bold Italic.
 
 
        If a = 1 Or a = 2 Then
            Label2.Font = GFR(My.Resources.MTCORSVA, 48, 2)
            Label3.Font = GFR(My.Resources.MTCORSVA, 34, 2)
            Label4.Font = GFR(My.Resources.MTCORSVA, 34, 2)
        Else
            Label2.Font = GFR(My.Resources.albanyzc, 36, 3)
            Label3.Font = GFR(My.Resources.albanyc, 28, 0)
            Label4.Font = GFR(My.Resources.albanyc, 28, 0)
        End If
 
 
    End Sub                  'Set Type face.
 
    Private Function GFR(ByVal FontResource As Byte(), _
                          ByVal Size As Integer, _
                          ByVal Style As FontStyle) As Drawing.Font
 
        Dim Fc As New Drawing.Text.PrivateFontCollection
        Fc.AddMemoryFont(Runtime.InteropServices.Marshal. _
                                     UnsafeAddrOfPinnedArrayElement(FontResource, 0), _
                                     FontResource.Length)
        Return New Drawing.Font(Fc.Families(0), Size, Style)
 
    End Function        'Get Font from Resource