PRB: Value of the Point Function Does Not Match Set Color

MORE INFORMATION

Steps to Reproduce Behavior

1. Start a new Standard EXE project in Visual Basic. Form1 is created by default.
2. Add a Label, Label1, and a Shape control, Shape1, to Form1.
3. Add the following code to Form1's module:

         Private Sub Form_Load()
            Label1.Caption = "Test Color"
            Shape1.FillStyle = 0 'Solid
            Shape1.FillColor = &H8000000D 'System Color
         End Sub
   
         Private Sub Form_MouseMove(Button As Integer, Shift As Integer, _
                                    X As Single, Y As Single)
            Dim Color As Long
            Color = Me.Point(X, Y)
            If Color = Shape1.FillColor Then
               Label1.Caption = "Mouse is over the shape!"
            Else
               Label1.Caption = "Mouse is Not over the shape!"
            End If
         End Sub
   						

4. Run the program by hitting the F5 key or choosing Start from the Run menu. Move the mouse over the form. Note that the label never indicates that the mouse is over the shape. To correct the problem, you need to compare the MouseMove point value to a known point value.
5. Stop the project and replace Form1's MouseMove event with this code:

         Private Sub Form_MouseMove(Button As Integer, Shift As Integer, _
                                    X As Single, Y As Single)
            Dim ActualFillColor As Long
            Dim Color As Long
            ActualFillColor = Me.Point(Shape1.Left + 10, Shape1.Top + 10)
            Color = Me.Point(X, Y)
            If Color = ActualFillColor Then
               Label1.Caption = "Mouse is over the shape!"
            Else
               Label1.Caption = "Mouse is Not over the shape!"
            End If
         End Sub
   						

6. Run the program by pressing the F5 key. Note that now when you move the mouse over the form, the label correctly shows when the mouse is over the shape.