Aplicacion Bloqueada

[arebeang]

hola a todos espero me puedan ayudar.
tengo una aplicación en VB6 y desde un formulario mando traer otro formulario, pero este segundo al mostrarse se bloquea la aplicación, ya probe con el Doevents pero no funciono que otra alternativa puedo tomar.

este es el pedazo de codigo
If Busca_Comunicado(sAño, sClave, sConsecutivo, sRenovacion, sAmpliacion) Then
If bBandera = False Then Exit Sub
cboReporte.Text = Numero_Comunicado
Call cboReporte_Click
''' Si en este punto coloco un punto de interrupción no se genera un error pero al quitarselo lo vuelve a hacer nuevamnete
Call CmdImprimir_Click

Numero_Comunicado = 0

End If
De antemano Gracias!!!