默认只有黑色的，我想改变成红色或是其他颜色，我该怎么做？求大神帮忙

有用过Shape + 无边框label 来实现，但是实际使用时遇到了问题，
显示内容需在label有边框的时候才能完全显示并且打印完整，
设置成无边框时最右边字体会部分打印不出来，有没有办法能让label显示边框并且能改变他的颜色？

网上查找了一下午，有人建议重绘，具体重绘该怎么操作，本人对这方面完全小白，有没有大神能提供点重绘控件的例子代码供参考一下呀，完全没有头绪，不知从何下手

VB6 ，自己使用绘图命令画框子吧！

能不使用控件时，建议少用控件。

如果控件较少，可以用画框的方式实现更简单一些。
对于框的宽度也可以定义。
Private Sub Command1_Click()
 Form1.Line (Label1.Left, Label1.Top)-(Label1.Left + Label1.Width, Label1.Top + Label1.Height), vbRed, B
End Sub

先谢谢大家的热心帮助
可能我没把问题描述清楚，具体是这样的
我把字符串显示在label上然后打印窗体，字体要求是不需要边框的，我把label边框设置为无边框时能正常打印字符串较短的情况，当字符串长度刚好靠近右边而又没发生换行时，打印出来就会导致最后一个字符只显示一半；
这个问题把label设置成有边框是可以解决，但是打印时我又不需要边框，所以就想着把他变成白色，大概问题就是这样，纠结了我好久

版主大大对我这个问题有没有更好的办法呀？

试过用Shape line 挡住label的边框，但是在不同系统电脑上又会出现位置变化没有完全档住的情况

如下设置看看
Label1.AutoSize = True

太感谢啦，完美解决了这个问题！

问题还是没得到彻底解决，这个变长的label在我这里不适用，要求是定长的