Animasyon Clik Olayı

Merhaba arkadaşlar Ekte ki örnekte "Frm_Police_Kayıt" formundaki animasyonlu butonlara tıklama olayı eklemek istiyorum ama formun kodlarında mause clik olayına farklı yöntem le kod girilmiş . Bunu nasıl istediğim gibi düzenleye bilirim. Bide bu animasyon yüzünden formadaki bütün resimler hareket ediyor onları nasıl sabitli ye bilirim. Yardımlarınız için şimdiden teşekkürler.

Bu konuda bana yardımcı olabilecek yok mu ?

MouseTikla isimli fonksiyon yok gibi gözüküyor programda.

Biraz daha açabilir misiniz. Sayın ALPEKİ99..

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.

Aldığım program ektedir.İlginiz için teşekkür ederim..