VB API 这个函数怎么调用？

Private Declare Function GetVersionEx Lib "kernel32" Alias "GetVersionExA" (ByVal lpVersionInformation As OSVERSIONINFO) As Long
Type OSVERSIONINFO
dwOSVersionInfoSize As Long
dwMajorVersion As Long
dwMinorVersion As Long
dwBuildNumber As Long
dwPlatformId As Long
szCSDVersion As String * 128
End Type

'以上放在声明部分，然后在过程中调用即可。
Private Sub Form_Load()
dim VerIf as OSVERSIONINFO
MyVerIf=GetVersionEx(VerIf)
msgbox MyVerIf，，"显示版本号"
msgbox szCSDVersion，，"显示版本信息"
end
End Sub

“Private”用于窗体中声明，“Public”用于模块中声明。