FreeVBCode code snippet: A Basic Pythagoras Implementation in VB6