Convert declare from VB to Xojo

Anyone know how to convert VB declare to Xojo??

This was done just yesterday in

VB and Xojo are close enough to make it often rather simple.

If you care to post the VB code, you will receive a lot of help.

what i notice is to remove the “Private” and changing Long to Integer and also changing lhWnd to self.handle