収集されたコールバックガベージの問題

Question

このコードを使用して「コールバックがタイプのガベージコレクションされた代理人に行われました」というエラーが表示されますが、解決策を見つけることができません。

<DllImport("winmm.dll")> 
Private Shared Function timeSetEvent(delay As Integer, resolution As Integer, handler As TimerEventHandler, user As IntPtr, eventType As Integer) As Integer 
End Function 

<DllImport("winmm.dll")> 
Private Shared Function timeBeginPeriod(millisecond As Integer) As Integer 
End Function 

Private Sub OnLoadit() 
    timeBeginPeriod(1) 
    Dim mHandler As New TimerEventHandler(AddressOf TimerCallback) 
    Dim mTimerId As Integer = timeSetEvent(4, 0, mHandler, IntPtr.Zero, 1) 
End Sub 

Private Delegate Sub TimerEventHandler(id As Integer, msg As Integer, user As IntPtr, dw1 As Integer, dw2 As Integer) 
Private Sub TimerCallback(id As Integer, msg As Integer, user As IntPtr, dw1 As Integer, dw2 As Integer) 
    'my function code here 
End Sub 

Answer 1

は、現在の実行後mHandlerが現時点でGCを介して収集することができるように、それがOnLoadit方法にスコープされたクラスメンバー（例えば、プライベートフィールド）にmHandlerをchaning試し。