Mousewheel Hareketini Sayıya Dönüştürmek

Merhaba,
fare tekerini aşağı yukarı çevirdiğimde metin kutusundaki sayının artması ya da azalmasını sağlayacak Vba kodu bilgisi olan var mı? Ben aşağıdaki örnek programda denedim ancak başarılı olamadım.

Private Sub Form_MouseWheel(ByVal Page As Boolean, ByVal Count As Long)

If Count > o Then

topla = topla + 1

ElseIf Count < 0 Then

topla = topla - 1

End If





End Sub

Merhaba
bu kodda
If Count > o Then
sanırım gözden kaçırdın
0(sıfır) kullanmamışsın o kullanmışsın gigi geldi bana
If Count > 0 Then Kullan çalışacaktır

Haklısınız , hemen denedim ama olmadı yine çalışmadı.

Bende oldu

sayın celoyce
sizin gönderdiğiniz de dahil olmak üzere ben çalıştıramadım.Acaba eksik bir dll mi var?

Merhaba,
Acaba hiç deneyip çalıştıran oldu mu?
Ya da başka bir kod ile çalıştıran?