2024年4月29日发(作者：)

GetCursorPos Pnt

’Get mouse position

ScreenToClient , Pnt

’Convert to client coordinate

CurX = Pnt.x * erPixelX

’Pixels to Twips

CurY = Pnt.y * erPixelY

DistX = Abs(CurX - ( + ))

’distance to text1’s

DistY = Abs(CurY - ( + ))

If DistX < = mDist And DistY < = mDist Then

’set mouse pointer

’according to distance

ointer = vbSizeNWSE

ElseIf DistX < = mDist And DistY > mDist Then

ointer = vbSizeWE

ElseIf DistX > mDist And DistY < = mDist Then

ointer = vbSizeNS

Else

ointer = vbDefault

End If

If Button < > 1 Then Exit Sub

If ointer = vbSizeNWSE Then

’change text1’ size

= CurX -