VB6判断是否在调试状态

VB6 因为比较老  所以很多地方不支持鼠标滚轮，

为了让MSFlexGrid支持鼠标滚轮 这里用了 HookWheel Me.hwnd 。

但是缺点也有的， 如果在开发环境里用了这个后在调试的时候VB6会闪退，这里就需要临时注释掉这行，经常忘记了注释 导致调试比较麻烦 。

就上网找了一段代码 判断是否在环境里还是EXE运行。

Public Function IsIde() As String
    IsIde = "EXE"
    On Error Resume Next
    Debug.Print 1 / 0
    If Err.Number <> 0 Then
        IsIde = "IDE"
    End If
End Function

调用：  If IsIde = "EXE" Then HookWheel Me.hwnd 

这样就解决了麻烦事。