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.