Private Sub LastUpdateTimeToUpdate_Click(sender As Object, e As EventArgs) Handles LastUpdateTimeToUpdate.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 objUpdateTime(0 To 10) As Double

    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
            objUpdateTime(i) = objDrawingView.LastUpdateTimeToUpdate
            i = i + 1
        Next
    Catch ex As Exception
        MsgBox(ex.ToString)
        Clipboard.SetText(ex.ToString)
    End Try
End Sub