怎样使用VBA去除窗体标题与边框？

1、首先在开发工具中打开VBA编辑器

2、在单元格区域当中输入一些内容作为例子

3、在VBA编辑器中插入模块

4、在模块当中输入如下代码，然后运行

Private Declare Function FindWindow Lib "use32" Alias "FindWindowA"

(ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function CreateRectRgn Lib "gdi32" (ByVal X1 As Long,
ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
Private Declare Function SetWindowRgn Lib "use32" (ByVal hWnd As Long,
ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long
Private Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long
Private Sub UserForm_Click()
 Unload Me  '单击关闭窗体
End Sub
Private Sub UserForm_Initialize()
    Dim hWnd As Long, new_rgn As Long
    If Val(Application.Version) < 9 Then '如果是Windows 2000以下的系统
      hWnd=FindWindow("ThunderXFrame", Me.Caption)
                                          '获取窗口句柄ThunderXFrame
    Else                           '否则
      hWnd=FindWindow("ThunderDFrame", Me.Caption)
                                          '获取窗口句柄ThunderDFrame
    End If
    new_rgn=CreateRectRgn(3, 29, (Me.Width * 1.33)-2,
      (Me.Height * 1.33)-2) '创建一个由四个数据点描述的矩形区域
    SetWindowRgn hWnd, new_rgn, True  '按前面定义的区域重绘窗体形状
    Call DeleteObject(new_rgn)
End Sub

5、用快捷键F5运行窗体，窗体仅仅显示图片区，标题及边框已隐藏。隐藏边框前的窗体如图13.10所示，隐藏边框后的窗体如图