vb窗体无框怎么设成和有框一样的功能

Question

我做了一个浏览网页的窗体，是无框的，我想用自己做的图片做标题栏，但不知道怎么做，麻烦大家帮帮忙，谢谢！
最好可以说得详细点，我菜鸟。

Answer 1

响应双击来把窗口最大化或者还原。这个应该没问题吧
拖动窗口用SendMessage Me.hwnd, WM_SYSCOMMAND, SC_MOVE + HTCAPTION, Me.MousePointer = 0 放在MouseMove里

Answer 2

题目太大,只说主要的
(1)在窗体上放一个图片框,右上角放三个图像框,三个图像框加载四张图片---最大化/最小化/复原/关闭,一个标签控件,用于显示标题.
(2)最大化/最小化/复原/关闭均在Image的click事件里加相应效果的代码
比如关闭:
Private Sub Image1_Click()'关闭
end
End Sub
Private Sub Image2_Click()'最大化
Me.WindowState = 2
End Sub(3)在Form的resize事件里加代码,让控件和窗体按比例变化的代码-----可在网上搜索;
(4)加拖动窗体的代码:
在Modual1.BAS文件中声明： 
Declare Function ReleaseCapture Lib "user32" () As Long
Declare Function SendMessage Lib "user32" 
Alias "SendMessageA" (ByVal hwnd As Long, _
ByVal wMsg As Long, ByVal wParam 
As Long, lParam As Any) As LongPublic Const HTCAPTION = 2
Public Const WM_NCLBUTTONDOWN = &HA1
Private Sub Form_MouseDown(Button As Integer，
 Shift As Integer， X As Single， Y As Single)
 ReleaseCapture
 SendMessage hwnd,WM_NCLBUTTONDOWN, HTCAPTION, 0&
End Sub