怎么更改这个字体？

'绘制直方图
'CurrentX = 2 + 2: CurrentY = Text1.Text                                             '找到绘制“赞同”直方图的起始位置

Line (6240 + 940, 4560 - 0)-(6240 + 1880, 4560 - 100 * 36), Me.BackColor, BF    '清除上次同意的直方图
Line (6240 + 940, 4560 - 0)-(6240 + 1880, 4560 - tongyi * 36), vbGreen, BF     '绘制“赞同”直方图，如果想要改每次增长的高度可以改36这个值，例：如果要是10人，可将36改为360
CurrentX = 6240 + 1410: CurrentY = 4560 - tongyi * 36 - 200: Print tongyi

Line (6240 + 2820, 4560 - 0)-(6240 + 3760, 4560 - 100 * 36), Me.BackColor, BF            '清除上次反对的直方图
Line (6240 + 2820, 4560 - 0)-(6240 + 3760, 4560 - fandui * 36), vbYellow, BF        '绘制“反对”直方图
CurrentX = 6240 + 3290: CurrentY = 4560 - fandui * 36 - 200: Print fandui

Line (6240 + 4700, 4560 - 0)-(6240 + 5640, 4560 - 100 * 36), Me.BackColor, BF    '清除上次弃权的直方图
Line (6240 + 4700, 4560 - 0)-(6240 + 5640, 4560 - qiquan * 36), vbRed, BF           '绘制“弃权”直方图
CurrentX = 6240 + 5170: CurrentY = 4560 - qiquan * 36 - 200: Print qiquan

End Sub