Attribute VB_Name = "Module1"
Sub Locate(Y, X, Where As PictureBox)
Where.CurrentX = (X - 1) * (10 * Screen.TwipsPerPixelX)
Where.CurrentY = (Y - 1) * (10 * Screen.TwipsPerPixelY)
End Sub

Function CSRLIN(Where As PictureBox)
CSRLIN = CInt(Where.CurrentY / (Screen.TwipsPerPixelY * 10)) + 1
End Function
Function POS(Where As PictureBox)
POS = CInt(Where.CurrentX / (Screen.TwipsPerPixelX * 10)) + 1
End Function