vb更换标题栏颜色具体步骤如下：
公司主营业务：成都网站建设、成都做网站、移动网站开发等业务。帮助企业客户真正实现互联网宣传，提高企业的竞争能力。成都创新互联是一支青春激扬、勤奋敬业、活力青春激扬、勤奋敬业、活力澎湃、和谐高效的团队。公司秉承以“开放、自由、严谨、自律”为核心的企业文化，感谢他们对我们的高要求，感谢他们从不同领域给我们带来的挑战，让我们激情的团队有机会用头脑与智慧不断的给客户带来惊喜。成都创新互联推出安义免费做网站回馈大家。
1、设置窗口的边界属性（FormBorderStyle）为None，即不显示边界，此种情况下，窗体默认的标题栏就不会显示。
2、接着，使用panel控件来做自己的标题栏，并将其绑定边框属性（Dock）设置为Top，使其显示在窗体顶部。设置其高度属性（Height）到一个合适的值，将其背景色属性(BackColor)设置为自己需要的颜色即可。
这个框线颜色是由Windows系统的桌面主题决定的（意思就是说只要是在windows系统中开发的软件，其中使用到的文本框或按钮控件等等其样式就受系统控制了，以保证其在各种不同软件中有相同的呈现，否则的话会损害用户体验）。软件中能自主改变的颜色只有背景色。当然，你也可以通过API函数来改变框线颜色，但这种改变是全局性的，就是说一旦改了，那么在其他软件中（即使不是VB开发的软件）出现的同类控件也会跟着改变。建议你从背景色入手，通过其对比度来间接实现框线的变化。
要么重写这个控件的 OnPaint 事件，判断 BorderStyle 属性为 FixedSingle 的时候自绘其他颜色。
要么不重写，把 BorderStyle 设为 None，直接在这个控件的 Paint 事件里自绘边框，例如：
Private Sub Label1_Paint(sender As Object, e As PaintEventArgs) Handles Label1.Paint
e.Graphics.DrawRectangle(Pens.Red, New Rectangle(Label1.DisplayRectangle.X, Label1.DisplayRectangle.Y, Label1.DisplayRectangle.Width - 1, Label1.DisplayRectangle.Height - 1))
End Sub
运行效果：
