Thanks for that.

I had at close of business Friday written as the seperate module:

[VBA]
Sub first()

Dim waitingform As Conso1.waitingform
Set waitingform = Conso1.waitingform

Dim Image1 As Object
Set Image1 = Conso1.waitingform.Image1

With waitingform

Image1.BackColor = vbBlue

End With

End Sub
[/VBA]

Which appears to be working, although as it only works when run in sequence at the moment, I've got to play a little more to get it to run while imbedded in a standalone sub.

Thank you all for your help.

Phel