Imports System.Runtime.InteropServices

Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim objApp As SolidEdgeFramework.Application = Nothing
        Dim objDoc As SolidEdgeDraft.DraftDocument = Nothing
        Dim objSheet As SolidEdgeDraft.Sheet = Nothing
        Dim objTechRequirements As SolidEdgeFrameworkSupport.TechnicalRequirements = Nothing
        Dim objTechRequirement As SolidEdgeFrameworkSupport.TechnicalRequirement = Nothing
        Dim nCount As Integer

        Try
            'Get Solid Edge Application object.
            objApp = Marshal.GetActiveObject("SolidEdge.Application")
            'Get Draft document object. Please make sure that active sheet contains technical req text.
            objDoc = objApp.ActiveDocument
            'Get sheet object from draft document object
            objSheet = objDoc.ActiveSheet
            'Get Technical Requirements collection
            objTechRequirements = objSheet.TechnicalRequirements
            'Get exact count of technical req text available in sheet
            nCount = objTechRequirements.Count
            objTechRequirement = objTechRequirements.Item(1)
            'Delete technical requirement text
            objTechRequirement.Delete()

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