CodePudding user response:

Point method for example
This sample Point method is used to determine a form of a specified Point on the color, to test this sample, this sample code can be pasted into a form of declaration section, and then press the F5 key and click the form,

Private Sub Form_Click ()
Dim LeftColor MidColor, Msg, RightColor declaring variables,
'AutoRedraw=1 'open AutoRedraw,
Height=3 * 1440 'set the Height to 3 inches,
Width=5 * 1440 'sets the Width to 5 inches,
BackColor=QBColor (1) 'sets the background to blue,
ForeColor=QBColor (4) 'sets the prospect to red,
The Line (0, 0) - (Height, Width/3),, BF 'red box,
ForeColor=QBColor (15) 'sets the prospect to white,
The Line (Width/3, 0) - (Height, Width/3 * 2),, BF
LeftColor=Point (0, 0) 'find left box, color,
MidColor=Point (Width/2, Height/2) 'in the box, and
RightColor=Point (Width, Height) 'right box,
Msg="The color number for The red box on The left side of"
Msg=Msg & amp; "The form is" & amp; LeftColor & amp; ". The "
Msg=Msg & amp; "The color of the white box in the center is"
Msg=Msg & amp; MidColor & amp; ". The color of The blue "
Msg=Msg & amp; "Box on the right is" & amp; RightColor & amp; ". "
MsgBox Msg 'display information,
End Sub