perdonad la estupidez, pensaba q era más complicado
Solución:
Código:
Public Sub CambiarTamanno()
Dim x As Integer
x = 18
Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", x, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Font = New System.Drawing.Font("Verdana", x, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
End Sub