Filter type and Filter data is not working

[avinash patil]

Hi!

I want to select only Lines but filter type and data is not working. it says invalid filter type

setColl = AcadDoc.SelectionSets
        For Each objSSet1 In setColl
            If objSSet1.Name = setName Then
                AcadDoc.SelectionSets.Item(setName).Delete()
                Exit For
            End If
        Next
        objSSet1 = AcadDoc.SelectionSets.Add(setName)
        'End With
        Me.Hide()

        Dim FilterType(0) As Integer
        Dim FilterData(0) As Object
        FilterType(0) = 0
        FilterData(0) = "Line"
        objSSet1.SelectOnScreen(FilterType, FilterData)

Can any one help me.