Private Sub Command1_Click() '放大 Text1.FontSize = 1.2 * Text1.FontSizeEnd SubPrivate Sub Command2_Click() '缩小 Text1.FontSize = Text1.FontSize / 1.2End SubPrivate Sub Form_Load() Text1.Text = "VB程序设计"End Sub