[VB6] Compile Error: Method or data member not found?

I do not see a definition for Shape1 variable. If it is not in scope then that is your problem. Define it or pass it to the sub.