可以,你可以用向导建立一个,(选择外接程序-》外接程序管理器-》VB ActiveX 控件接口向导)
'事件声明:
Event ppp()
'影射到DBclick()
Private Sub UserControl_DblClick()
    RaiseEvent ppp
End Sub
你可以在你要发生事件时用
 raiseEvent PPP