Dúvida: Executar evento KeyDown a partir de outro UserForm

[Armando Amador Pereira]

Problema é o seguinte

==== UserFormX ===================================================================
Private Sub txtOrdemVenda_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

    If KeyCode = vbKeyReturn Then

                        'Todo procedimento aqui

      End if

End Sub

======== UserFormY ===================================================================
Private Sub c_lstPedidos_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
           'Todo procedimento aqui...

          'Pergunta: como chamar o evento KeyDown do UserFormX  ???

End sub

Agradeço demais quem puder ajudar.

[MosconiDih]

Ola... tenho pouco conhecimento mas acredito q te resolveria o problema usando um modulo no evento do keydown

cria o modulo "sub keyReturn" e coloca a função que você quer que ele execute

==== UserFormX ===================================================================

Private Sub txtOrdemVenda_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

    If KeyCode = vbKeyReturn Then

                        keyReturn 'chama sua sub na txtOrdemVenda

      End if

End Sub

 

======== UserFormY ===================================================================
Private Sub c_lstPedidos_DblClick(ByVal Cancel As MSForms.ReturnBoolean)          

                keyReturn 'chama a mesma sub no evento de click duplo na c_listPedidos

End sub

 

 

Bom espero q ajude. Sou bem iniciante no VBA mas acho que resolveria pra você dessa forma.