参考答案

Private Sub m1_Click()
    Text1.Font.Bold = True  '或    Text1.FontBold = True
End Sub
Private Sub m3_Click()
    Text1.Font.Underline = True      '或    Text1.FontUnderline = True
End Sub
Private Sub m2_Click()
    Text1.Font.Italic = True  '或    Text1.FontItalic = True
End Sub
Private Sub Text1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button = 2 Then  ' 或  2 = Button
        PopupMenu format
    End If
End Sub