Aciklama metin kutusunun odaklanıldığında olayına

Private Sub Aciklama_GotFocus()

    blnFocus = True

End Sub

Aynı metin kutusunun odaklanma sonlandığında olayına

Private Sub Aciklama_LostFocus()

    blnFocus = False

End Sub

kodlarını ekle,

vb sayfasının en üstüne aşağıdaki kodları ekle

Dim blnFocus As Boolean



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

   If blnFocus = True Then

       If Count < 0 Then

           SendKeys "{up 2}"

       Else

           SendKeys "{down 2}"

       End If

   End If

End Sub

Formun "Tuş Önizleme" özelliği Evet olarak kalsın.