03-07-2009, 11:12 PM
Hehe, creating boxes and checking if user clicked the box when clicking on screen. Again, pretty lousy lol
creating box
creating box
Code:
With UsernameboxRECT
.top = 275
.Left = 274
.Right = 530
.Bottom = 293
End WithCode:
Function InRECT(ByRef RECT As RECT, MouseX As Integer, MouseY As Integer) As Boolean
InRECT = False
If RECT.top < MouseY And RECT.Bottom > MouseY And MouseX > RECT.Left And MouseX < RECT.Right Then
InRECT = True
End If
End Function