19/05/2023: A causa di un errore sono stati cancellati, insieme ad account creati da bot, alcuni account legittimi. Si prega di leggere qui: https://www.gambas-it.org/smf/index.php?topic=9733.0
Public Sub Button1_Click() Me.Font.Size = Me.Font.Size * 2End
Public Sub Button1_Click() Dim o As Object Me.Font.Size = Me.Font.Size * 2 For Each o In Me.Children If Object.Type(o) = "ToolBar" Then o.Font.Size = Me.Font.Size NextEnd
Dim c As Control Me.Font.Size = Me.Font.Size * 2 For Each c In Me.Controls If c.Name = "ToolBar" Then c.Font.Size = Me.Font.Size Next