Private Sub LastUpdateUserName_Click(sender As Object, e As EventArgs) Handles LastUpdateUserName.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 objUpdateUsername(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
            objUpdateUsername(i) = objDrawingView.LastUpdateUsername
            i = i + 1
        Next
    Catch ex As Exception
        MsgBox(ex.ToString)
        Clipboard.SetText(ex.ToString)
    End Try
End Sub