Private Sub btnSelectSet_Click(sender As System.Object, e As System.EventArgs) Handles btnSelectSet.Click
    Dim objApplication As SolidEdgeFramework.Application = Nothing
    Dim objDraftDoc As SolidEdgeDraft.DraftDocument = Nothing
    Dim objSheet As SolidEdgeDraft.Sheet = Nothing
    Dim objSelectSet As SolidEdgeFramework.SelectSet = Nothing
    Dim objLine As SolidEdgeFrameworkSupport.Line2d = Nothing
    Dim objType As Type = Nothing

    Try
        objApplication = GetObject(, "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
        objSelectSet = objApplication.ActiveSelectSet

        For Each objLine In objSheet.Lines2d
            Call objSelectSet.Add(objLine)
        Next

        Call objSheet.ScaleSelectSet(2.25, 0.17024, 0.18441)
        Call objSheet.MoveSelectSet(0.17024, 0.18441, 0, 0)
        Call objSheet.RotateSelectSet(0.7853, 0, 0)

    Catch ex As Exception
        MsgBox(ex.ToString)
    End Try
End Sub