例如:如何将以下格式:
Private Sub abDDWordPad_ComboSelChange(ByVal tool As ActiveBar2LibraryCtl.tool)
If TypeOf ActiveForm Is IMDIDocument Then
if tool.Name = "miFoFontName" Then
ActiveForm.rtf.SelFontName = tool.Text
ElseIf tool.Name = "miFoFontSize" Then
ActiveForm.rtf.SelFontSize = Val(tool.Text)
End If
        
End If
End Sub

改为:
Private Sub abDDWordPad_ComboSelChange(ByVal tool As ActiveBar2LibraryCtl.tool)
    If TypeOf ActiveForm Is IMDIDocument Then
        If tool.Name = "miFoFontName" Then
            ActiveForm.rtf.SelFontName = tool.Text
        ElseIf tool.Name = "miFoFontSize" Then
            ActiveForm.rtf.SelFontSize = Val(tool.Text)
        End If
        
    End If
End Sub
是否更改哪个设置?谢谢!