Private Sub LastUpdateSEVersion_Click(sender As Object, e As EventArgs) Handles LastUpdateSEVersion.Click
    Dim objApp As SolidEdgeFramework.Application
    Dim objDoc As SolidEdgeDraft.DraftDocument
    Dim objSheets As SolidEdgeDraft.Sheets
    Dim objSheet As SolidEdgeDraft.Sheet
    Dim objDrawingViews As SolidEdgeDraft.DrawingViews
    Dim objDrawingView As SolidEdgeDraft.DrawingView
    Dim objUpdateSEVer(0 To 10) As String

    Try
        objApp = Marshal.GetActiveObject("SolidEdge.Application")
        objDoc = objApp.ActiveDocument
        objSheets = objDoc.Sheets
        objSheet = objDoc.ActiveSheet
        objDrawingViews = objSheet.DrawingViews
        objDrawingView = objDrawingViews.Item(1)

        Dim i As Integer
        i = 0
        For Each objDrawingView In objDrawingViews
            objUpdateSEVer(i) = objDrawingView.LastUpdateSEVersion
            i = i + 1
        Next
    Catch ex As Exception
        MsgBox(ex.ToString)
        Clipboard.SetText(ex.ToString)
    End Try
End Sub