Procedimiento

"Marcos Campos A." preguntó:

¿Como Puedo hacer que este procedimento lo puede ejecutar
desde cualquier formulario de mi proyecto?

Private Function migetCurrentPage() As Integer
While CRViewer1.IsBusy
DoEvents
Wend
migetCurrentPage = CRViewer1.GetCurrentPageNumber
End Function

Hola, Marcos:

Si la funcíón se encuentra en un módulo general (*.bas), en lugar de
declararla «Private», declárala «Public».

Si por el contrario, la función se encuentra en un formulario o en un módulo
de clase, en lugar de utilizar una función «Private», declara un
procedimiento «Public Property Get»

Public Property Get migetCurrentPage() As Integer
While CRViewer1.IsBusy
DoEvents
Wend
migetCurrentPage = CRViewer1.GetCurrentPageNumber
End Property

Y desde otro formulario, o módulo de la aplicación, obtendrías el valor
devuelto llamando al procedimiento de la siguiente manera:

Dim frm As Form2

Set frm = New Form2

MsgBox frm.migetCurrentPage

Set frm = Nothing

Un saludo.

Enrique Martínez
[MS MVP - VB]