....aaa" & Chr(10) & "Bbb...
Questa finezza mi piace.
L'unica cosa che non sono riuscito a ridimensionare è, appunto, l'icona del pulsante Button.
Ma come no ? ???
C'è un apposito Metodo della Classe "Image" per gestire il ridimensionamento.
Riprendo il tuo esempio:
Private ico As Picture = Stock["16/warning"]
Public Sub Form_Open()
TextArea1.text = "Aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa" & Chr(10) & "Bbbbbbbbbbbbbbbbbbbbbbbbbb"
Button1.Picture = ico
End
Public Sub Form_Resize()
With Button1
.Font.size = Me.w / 45
.X = Me.w / 1.5
.Y = Me.H / 1.1
.w = Me.W / 6
.H = Me.H / 18
.Picture = ico.Image.Stretch(Me.w / 35, Me.H / 35).Picture
End With
With TextArea1
.Font.size = Me.w / 35
.X = Me.w / 30
.Y = Me.H / 30
.w = Me.W / 1.2
.H = Me.H / 1.2
End With
End
Public Sub Button1_Click()
TextArea1.text = Null
End