用VB如何作XP式的标题栏!!!!!!

先用几个IMAGE配合代码来画一个
在上面放一个透明的Label1作为标题
再在Label上放置一个透明的Label2用来移动窗体，使用以下代码实现：
Dim X0, Y0Private Sub LABEL2_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
X0 = X
Y0 = Y
End SubPrivate Sub LABEL2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then Form1.Left = Form1.Left + X - X0: Form1.Top = Form1.Top + Y - Y0
End Sub
然后制作最大、最小化按钮（网上有现成的）
在Label2的双击事件中填写使窗体最大化和还原的代码
当然，要制作一个专业的标题栏还有许多工作要做。

解决方案 »

  1.   

    最完美的效果：
    拦截消息，自绘标题栏可以参考http://zyl910vb.51.net/another/中的vbskin右击连接，目标另存为
    注意把下载后的*.zip.jpg改名成*.zip
      

  2.   

    zyl910(910：分儿，我来了！) 的东西真不错~楼主得救了
      

  3.   

    我改别人的代码做的http://www14.brinkster.com/weblover/WinXPTitleBar.rar
      

  4.   

    拦截消息最直接了。那个vbskin我见过，很好的。页也很容易修改来为自己用。你看看吧。
    http://entn.hdpu.edu.cn/ymck/vb/vb7.htm
    http://zyl910vb.51.net/another/
    当来看看吧