PRB: Circle Aspect Ratio Unaffected by User-Defined ScaleMode

MORE INFORMATION

Steps to Reproduce Behavior

1. Start a new project in Visual Basic. Form1 is created by default.
2. Add two Command buttons (Command1 and Command2) to Form1.
3. Add the following code to the Click events for the command buttons:

      Sub Command1_Click ()
         Form1.ScaleMode = 5 'Inches
         Form1.ScaleLeft = 0
         Form1.ScaleTop = 0
   
         Dim N As Integer, X As Integer, Y As Integer
   
         N = 5
         X = 1
         Y = 1
   
         Circle (x, y), 1, QBColor(n)
         Line (x, y)-(2, 1), QBColor(n)
         Line (x, y)-(1, 2), QBColor(n)
         Line (x, y)-(-2, 1), QBColor(n)
         Line (x, y)-(1, -2), QBColor(n)
      End Sub
   
      Sub Command2_Click()
         '** Note: depending on what screen resolution you are running
         'the aspect ratio difference may differ. At 1024x768 resolution,
         'the 2nd and 4th Line statement generate lines which go outside
         'of the circle).
   
         Dim N As Integer, X As Integer, Y As Integer
         N = 5
         X = 0
         Y = 0
   
         Form1.ScaleMode = 0 'User
         Form1.ScaleHeight = -3
         Form1.ScaleWidth = 3
         Form1.ScaleLeft = -1.5
         Form1.ScaleTop = 1.5
   
         Circle (x, y), 1, QBColor(n)
         Line (x, y)-(1, 0), QBColor(n)
         Line (x, y)-(0, 1), QBColor(n)      '** line 2
         Line (x, y)-(-1, 0), QBColor(n)
         Line (x, y)-(0, -1), QBColor(n)     '** line 4
      End Sub
   						

4. Start the program by choosing Start from the Run menu or by pressing the F5 key.
5. Click the Command1 button. Then click the Command2 button. Note that the lines in the circle generated by the Command1 click event exactly equal the radius, but the lines in the circle generated by the Command2 click event do not.