STFLinearmember to datagroup name: Beams: Steel

Hello everyone! I use ABD V8I. And i can model a lot of beams using STFLineraMember from STFCom library. Using this code below. 

Function CreateAMember(a As Long, b As Long, c As Long, d As Long, e As Long, f As Long, ang As Long, mySectionName As String, p As Byte)

    Dim myMember As STFLinearMember
    Dim section As STFSection
    Dim pPt As Point3d
    Dim qPt As Point3d
    pPt.x = a
    pPt.Y = b
    pPt.Z = c
    qPt.x = d
    qPt.Y = e
    qPt.Z = f
    Set myMember = New STFLinearMemberList
    Set section = New STFSectionList
    section.SetName mySectionName
    myMember.SetSTFSection section
    myMember.SetPartFamily "Steel"
    myMember.SetPartName "Beam"'myMember.SetStructType 1'myMember.SetNamedPropertiesName "Beams: Steel", False 
    myMember.SetMaterial "Steel", "S355"
    myMember.SetPQPoints pPt, qPt
    myMember.SetPlacementPoint p
    myMember.SetRotation ang
    myMember.SetCrossSectionReflection True
    myMember.CreateTFFormRecipeList'myMember.SetNamedPropertiesByItemNameAndType "Beam", "Beams: Steel"
    myMember.Save True
End Function

Sub aaaaa()

    CreateAMember 12016, 16429, 24696, 12193, 16664, 24696, 180, "L 75x75x6", 2
End Sub

But in report this elements is not shown. I'm trying to give "DataGroup Data" to stflinearmember. But it doesnt work. Any ideas how to do it? 

I can click mouse right buttom on stflinearmember  then click "Modify Structure Attributes" and that good. But i dont have a lot of time for every element, code saves my time i hope.