VB Code:
  1. Dim f As New Font("arial", 16)
  2.         Label1.Font = f