Between Keyword

Hi i am using vb6, so any body inform me the following statment.
If (x >= Shape1.Left And _
x <= Shape1.Left + Shape1.Width And _
Between(y, Shape1.Top - 50, Shape1.Top + 50)) Or _
(y >= Shape1.Top And _
y <= Shape1.Top + Shape1.Height And _
Between(x, Shape1.Left - 50, Shape1.Left + 50)) Then
But the error that the "Between" keyword sub or function not defined.
is there "Between" keyword doesnt exist.
waiting for your soon reply,
Thanks.
Best Regards.
Haider


.