How can I get the printer status using VB6?

Thanks