主题：文字局部变小

Forms("主窗_顶窗").StopRedraw() '准备开始绘制界面控件    
    Forms("主窗_顶窗").panel.parent.parent.Height = 72 '设定窗口高度.
    Dim Label As WinForm.Label '设定第一个标签
    Label = Forms("主窗_顶窗").CreateControl("窗口标题", ControlTypeEnum.Label) '作为主标题显示
    
    Label.Left = 10 '设定左边边距
    Label.Top = 25 '设定顶部边距
    Label.Width = 245 '设定控件的宽度
    Label.Height = 30 '设定控件的高度
    Label.Text = "全案定制家居运营管理系统" '设定显示的字符
    Label.Font = New Font("黑体", 18, FontStyle.Bold) ' 设定字体的颜色,字号,加粗等特性
    Label.ForeColor = Color.Indigo
    If Label.Text.Contains("管理系统") Then
        Label.Font = New Font("黑体", 12, FontStyle.Bold) ' 设定字体的颜色,字号,加粗等特性
        Label.ForeColor = Color.Indigo