Blog : Change font style during run time

Change font style during run time 

Dim FontName As String = "Arial" Dim FontSize As Integer = 14 Dim FS As New Font(FontName, FontSize, FontStyle.Regular) Label1.Font = FS

Dim xFont As Font
Dim xControl As Control
xFont = New Font("Times New Roman", 10, FontStyle.Regular)
ForEach xControl In nform.Controls
xControl.Font = xFont
Next