VB.NET使用glut的glutMouseFunc函数问题

第一步 窗体加载的时候
Tao.FreeGlut.Glut.glutMouseFunc(Tao.FreeGlut.Glut.MouseCallback.Combine)
第二步
Sub mymouse(ByVal button As Integer, ByVal state As Integer, ByVal x As Integer, ByVal y As Integer)

    Debug.Write(button)

End Sub

第三步
Private Sub Form1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseMove

    Tao.FreeGlut.Glut.glutMouseFunc(AddressOf mymouse)

end
以上代码错在哪里？