'Here's the code for my sample Access 2010 VBA form:
https://youtu.be/Vtv1E9NORFY
Option Compare Database
Option Explicit
Private Sub Detail_Click()
imgSNOOPY.Visible = True
End Sub
Private Sub imgAIRPLANE_Click()
imgAIRPLANE.Left = imgAIRPLANE.Left - 100
End Sub
Private Sub imgSNOOPY_DblClick(Cancel As Integer)
imgWOODSTOCK.Visible = True
End Sub
Private Sub imgWOODSTOCK_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
imgAIRPLANE.Visible = True
End Sub
