Private Sub LastUpdateDate_Click(sender As Object, e As EventArgs) Handles LastUpdateDate.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 objUpdateDate(0 To 10) As Object

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