Private Sub GetDisplayedText_Click(sender As Object, e As EventArgs) Handles GetDisplayedSheet.Click
    Dim objApplication As SolidEdgeFramework.Application = Nothing
    Dim objDraftDoc As SolidEdgeDraft.DraftDocument
    Dim objSheet As SolidEdgeDraft.Sheet
    Dim objBlockOccs As SolidEdgeDraft.BlockOccurrences
    Dim objBlockOcc As SolidEdgeDraft.BlockOccurrence
    Dim strDisplayedText As String


    Try

        objApplication = Marshal.GetActiveObject("SolidEdge.Application")
        objDraftDoc = objApplication.ActiveDocument
        objSheet = objDraftDoc.ActiveSheet
        objBlockOccs = objSheet.BlockOccurrences
        objBlockOcc = objBlockOccs.Item(1)
        strDisplayedText = objBlockOcc.BlockLabelOccurrences.Item(1).DisplayedText
    Catch ex As Exception
        MsgBox(ex.ToString)
        Clipboard.SetText(ex.ToString)
    End Try
End Sub