Well,
I found the answer to my own question and I thought it might be a good idea to share it everyone:
Private Sub Form_Current()
'------declaration statements
dim dbs as database, rst as recordset, sql as string
dim fld as field
dim i, cnt as integer
dim strX, strY, strImg, strCtl, strDir as...