horozufuk abimin yol göstermesi ile; form açıldığında maus tekerleği iptal butona tıklandığında açık durumuna getirdim.

Set MouseHook = NewMouseHook(Me)
' For this example, we want the scroll wheel to be active until the user chooses to disable it
MouseHook.Scroll = True olan (False) olacak.

Formda buton seçeneği kodu ise

Private Sub btnToggleScrolling_Click()

With btnToggleScrolling

If .Value = -1 Then
MouseHook.Scroll = True
. MouseHook.Scroll = True
.Caption = "TIKLA (Mouse=Fare)AKTİF"

Else
MouseHook.Scroll = False
.Caption = "TIKLA (Mouse=Fare)PASİF"
End If

End With

End Sub