Private Sub btnBlockAngleAndScale_Click(sender As System.Object, e As System.EventArgs) Handles btnBlockAngleAndScale.Click
    Dim objApplication As SolidEdgeFramework.Application = Nothing
    Dim objDraftDoc As SolidEdgeDraft.DraftDocument = Nothing
    Dim objSheet As SolidEdgeDraft.Sheet = Nothing
    Dim objBlockOccurrences As SolidEdgeDraft.BlockOccurrences = Nothing
    Dim objBlockOcc As SolidEdgeDraft.BlockOccurrence = Nothing
    Dim dAngle As Double
    Dim dScale As Double
    Dim objType As Type = Nothing

    Try
        objApplication = Marshal.GetActiveObject("SolidEdge.Application")

        If objApplication Is Nothing Then
            ' Get the type from the Solid Edge ProgID
            objType = Type.GetTypeFromProgID("SolidEdge.Application")
            ' Start Solid Edge
            objApplication = Activator.CreateInstance(objType)
            ' Make Solid Edge visible
            objApplication.Visible = True
        End If

        objDraftDoc = objApplication.ActiveDocument
        objSheet = objDraftDoc.ActiveSheet

        objBlockOccurrences = objSheet.BlockOccurrences

        For Each objBlockOcc In objBlockOccurrences
            dAngle = objBlockOcc.RotationAngle
            dScale = objBlockOcc.ScaleFactor
        Next
    Catch ex As Exception
        MsgBox(ex.ToString)
    End Try

End Sub