VB自定义窗体

//自定义标题栏
首先把窗体改成没有标题的...其次弄个图片框载入自己的图片...
然后用

Private Declare Function ReleaseCapture Lib "user32" () As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" ( ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
ReleaseCapture
SendMessage hwnd,  &HA1 , 2, 0&
End Sub

然后运行就可以了...拖动你的图片框就能动

//自定义不规则窗体
 /在菜单---外接程序---中找到VB 6 API Viewer ----加载/卸载---打勾，再点外接程序----就可以看到API声明器 
 /打开后点文件加载文本---选择WIN32API.TXT 就你能看到所有的API
Option Explicit
    'Win32 API的声明
    Private Declare Function CreatePolygonRgn Lib "gdi32" (lpPoint As POINTAPI, ByVal nCount As Long, ByVal nPolyFillMode As Long) As Long
    
    Private Declare Function SetWindowRgn Lib "user32" (ByVal hwnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long
    Private Type POINTAPI
        x As Long
        y As Long
     End Type

    Private Sub Form_Load()
    '声明变量
    Dim Result As Long