求救用end出现VB调试死机直接终止VB不知道为什么！！昨天还好好的！今天就出问题了！编译生成.EXE后运行正常
就是退出的时候出现提示：系统已停止工作
下面是详细信息
C:\Users\Administrator\AppData\Local\Temp\WER615A.tmp.WERInternalMetadata.xml
  C:\Users\Administrator\AppData\Local\Temp\WER83E7.tmp.appcompat.txt
  C:\Users\Administrator\AppData\Local\Temp\WER83F8.tmp.mdmp
如果是VB 调试状态退出时直接使得VB死机退出VB
帮我看看什么问题：问题可能出在END上面下面是我的窗体中的代码：
1.把窗体的XX按钮变成最小化到托盘
2.在托盘上右击鼠标弹出退出选项直接退出程序
的功能同 2
--------------------------------------------------------------
Private Sub Form_Unload(Cancel As Integer)'XX变成最小化到托盘
Cancel = 1
Me.Hide
End Sub
--------------------------------------------------------------
Private Sub mnuTrayClose_Click()'托盘上鼠标右建弹出退出菜单退出程序
RemoveFromTray  ‘模块删除托盘图标
End
End Sub
------------------------------------------------------------
Private Sub Command3_Click()  '退出程序
myval = MsgBox("确定退出吗？", vbYesNo, "系统")
  If myval = vbYes Then
     RemoveFromTray
     End
  End If
 Me.Hide
End Sub
还有，我用了下面的定时东西
---------------------------------------
就是调用系统时间做对比是不是下面这个的问题？
Private Sub Timer2_Timer()
If Now >= dtNextTime Then  ’dtNextTime是设定的时间
    Me.Show
    Command4_Click
    Timer2.Enabled = False
  End If
End Sub

[ 本帖最后由 wxflw 于 2012-3-25 17:27 编辑 ]

RemoveFromTray代码

Public Sub RemoveFromTray() '图标从系统托盘 删除。
    With TheData
        .uFlags = 0
    End With
    Shell_NotifyIcon NIM_DELETE, TheData
    SetWindowLong TheForm.hwnd, GWL_WNDPROC, OldWindowProc ' 恢复窗口过程。
End Sub
前天还好好的~~~
昨天加了
Private Sub Timer2_Timer()
If Now >= dtNextTime Then  ’dtNextTime是设定的时间
    Me.Show
    Command4_Click
    Timer2.Enabled = False
  End If
End Sub
就出问题了！

老版！！我无语了！我这个在win7的64位系统操作没有出问题！！
为什么在32位系统会出错来着？？？

知道怎么回事的指点一下啊！