Ver Mensaje Individual
  #2 (permalink)  
Antiguo 25/10/2006, 05:27
Avatar de SuperPinwi
SuperPinwi
 
Fecha de Ingreso: septiembre-2005
Mensajes: 317
Antigüedad: 18 años, 8 meses
Puntos: 1
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