ViewChangeNotify Can not Fired

You have to assign iModelView variable first and then Attach Event Handlers. You can use either Class Constructor or Button Click Event Handler. In the example below I use Class Constructor:

    Dim SwApp As New SldWorks.SldWorks
    Dim SwModel As ModelDoc2
    Dim WithEvents iModelView As ModelView


    Sub New()
        SwModel = SwApp.ActiveDoc
        iModelView = SwModel.ActiveView
        AttachEventHandlers()
    End Sub


    Sub AttachEventHandlers()
        AddHandler iModelView.RepaintNotify, AddressOf Me.ModelView_RepaintNotify
        AddHandler iModelView.ViewChangeNotify, AddressOf Me.ModelView_swViewChangeNotify
    End Sub


    Sub DetachEventHandlers()
        RemoveHandler iModelView.RepaintNotify, AddressOf Me.ModelView_RepaintNotify
        RemoveHandler iModelView.ViewChangeNotify, AddressOf Me.ModelView_swViewChangeNotify
    End Sub


    Function ModelView_RepaintNotify(ByVal repaintTYpe As Integer) As Integer
        'Fired Successful!


        Return 0
    End Function


    Function ModelView_swViewChangeNotify(ByVal View As Object) As Integer
        MessageBox.Show("View has been changed.")


        Return 0
    End Function