控件的快捷键的问题-----各位高手指教

我做了一active控件，我定义了
Private Sub UserControl_KeyDown(KeyCode As Integer, Shift As Integer)
  if keycode=vbkeyf7 then
     dialog.show 1
  end if
End Sub
运行后，我第一次按F7,弹出dialog对话框，我把dialog对话框关闭，在按
F7，就报错如下：
"0x005246fc"指令引用的"0x00000030"内存,该内存不能为"Read".