Question

VBA这一段代码是什么意思！！特别是首句，请懂VBA的朋友帮忙解答一下，谢谢！

Private Sub UserForm_Initialize()

Dim hWndForm As Long
Dim iStyle As Long, hMenu As Long
If Val(Application.VERSION) < 9 Then
hWndForm = FindWindow("ThunderXFrame", Me.Caption) 'XL97
Else
hWndForm = FindWindow("ThunderDFrame", Me.Caption) 'XL2000
End If
iStyle = GetWindowLong(hWndForm, GWL_STYLE)

iStyle = iStyle And Not WS_CAPTION '无边框样式

SetWindowLong hWndForm, GWL_STYLE, iStyle

DrawMenuBar hWndForm

Me.Width = Application.Width + 5
Me.Height = Application.Height + 5
Me.Top = 0
Me.Left = 0
End Sub

Answer 1

Private Sub UserForm_Initialize()
' UserForm窗体初始化时执行SUB里面的语句。
里面具体的作用得一句一句的分析了。

Answer 2

得到窗体句柄吧