调用Api后出错的问题

Question

代码如下：
'-----in model
Public Type SYSTEM_POWER_STATUS
    ACLineStatus As Byte
    BatteryFlag As Byte
    BatteryLifePercent As Byte
    Reserved1 As Byte
    BatteryLifeTime As Byte
    BatteryFullLifeTime As Byte
End TypePublic Declare Function GetSystemPowerStatus Lib "kernel32" (lpSystemPowerStatus As SYSTEM_POWER_STATUS) As Long'-----End Model'------in form
Private Sub imgSend_Click() 
    Dim battaryInfo As SYSTEM_POWER_STATUS
    Dim state As Byte
    GetSystemPowerStatus battaryInfo
    state = battaryInfo.BatteryFlag
    If state <> 128 Then
        MsgBox "笔记本不能使用该登陆程序，请用台式机！", vbOKOnly, "错误！"
        Exit Sub
    Else
        MsgBox "正确！", vbOKOnly, "错误！"
    End If
End Sub
'-----End
生成exe文件执行，可以得到state的值，然后系统出错：project1遇到问题需要关闭。然后选择发送错误报告而且连续出现2次。
高手请指点，本人vb菜鸟。

Answer 1

难道是我系统问题？我xp sp2

Answer 2

2003上测试，发生内存xxxx只读，不能为read，呼唤高手……

Answer 3

发现有问题。将这段程序放到一个 Module 里面，调用子过程没有问题，执行到 Exit Sub 的时候出错了Run-time error '49':  
Bad DLL calling convention删除  Exit Sub 那一行，还是在返回的时候出现同样的错了。但，如果不使用子过程，直接放在 Sub main() 里面执行，一点错误都没有。