Nº de paginas de un pdf desde VB6.

Necesito conocer el nº de paginas de un pdf determinado.

Así imprimo el pdf:

Resultado = ShellExecute(0&, "print", Path, 0&, vbNullString, SW_HIDE)

Hay algún control o alguna forma de conocer el nº de paginas de un pdf?