Ver originalPrivate Sub Combo1_Click()Set Me.Font = Combo1.FontCombo1.Width = Me.TextWidth(Combo1.List(Combo1.ListIndex)) + 500End Sub