Private Sub Acilis()

  Dim ctl As Control

  For Each ctl In Me.Controls

    If ctl.ControlType = acImage Then

      ctl.OnMouseMove = "=MouseOn([" & ctl.Name & "])"

      ctl.OnClick = "=MouseTikla([" & ctl.Name & "])"

    End If

  Next

  Set Yeni = Nothing

  Set Eski = Nothing

  lblAciklama.Visible = False

End Sub

burada farenin simge üzerine gelmesi ve tıklama ile ilgili kodlar mevcut.

If ctl.ControlType = acImage Then

      ctl.OnMouseMove = "=MouseOn([" & ctl.Name & "])"

      ctl.OnClick = "=MouseTikla([" & ctl.Name & "])"

    End If

ctl.OnMouseMove ve ctl.OnClick kısımları ile tıklama olayı ve farenin üzerine gelmesi halinde yapacağı işler için kod yazılmış. Sizin programda MouseOn isimli bir fonksiyon varken MouseTikla diye bir fonksiyon göremedim. Kodları aldığınız yerden eksik almış olabilirsiniz.