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