为什么我实现不了？有代码。

Question

Private Sub Command18_Click()
    On Error GoTo Err_Handle
    With Setting
        .DialogTitle = "字体"
        .Max = 30
        .Min = 0
        '.Flags = cdlCFScreenFonts
        .Flags = cdlCFBoth
    End With
Setting.ShowFont
    With Label1
      .Font = Setting.FontName
       
      .FontName = Setting.FontName
      .FontSize = Setting.FontSize
      .FontItalic = Setting.FontItalic
      .FontBold = Setting.FontBold
      .FontUnderline = Setting.FontUnderline
    End With
Err_Handle:
    Exit Sub
End Sub我想按“这是个测试”，可是为什么他每个字都是倒的？

Answer 1

Private Sub Command18_Click()
    On Error GoTo Err_Handle
    With Setting
        .DialogTitle = "字体"
        .FontName = "宋体"             '增加这一句，当然也可改成其它的
        .Max = 30
        .Min = 0
        '.Flags = cdlCFScreenFonts
        .Flags = cdlCFBoth
    End With
Setting.ShowFont
    With Label1
      .Font = Setting.FontName
       
      .FontName = Setting.FontName
      .FontSize = Setting.FontSize
      .FontItalic = Setting.FontItalic
      .FontBold = Setting.FontBold
      .FontUnderline = Setting.FontUnderline
    End With
Err_Handle:
    Exit Sub
End Sub