Private Sub ClearRotationFocus_Click(sender As Object, e As EventArgs) Handles ClearRotationFocus.Click
    Dim objApplication As SolidEdgeFramework.Application = Nothing
    Dim objView As SolidEdgeFramework.View = Nothing
    Dim objCurWindow As SolidEdgeFramework.Window
    
    
        Try
            objApplication = Marshal.GetActiveObject("SolidEdge.Application")
            objCurWindow = objApplication.ActiveWindow
            objView = objCurWindow.View
            Dim Result = MsgBox("Do you want to Clear Rotation Focus?", MsgBoxStyle.YesNoCancel, "3DConnexion")
            If Result = DialogResult.Yes Then
                'Clears the Rotation Focus
                objView.ClearRotationFocus()
            End If
        Catch ex As Exception
            MsgBox(ex.ToString)
        End Try
End Sub