Get Tactical Graphic Property Set Snippet

///<summary>Sets the values for the commonly used Tactical Graphic properties.</summary>
///  
///<param name="name">A System.String that is the Name. Example: "PHASE LINE ALPHA"</param>
///<param name="symbid">A System.String that is the Symbol_ID. Example: "GFGPGLP-------X"</param>
///<param name="info">A System.String that is the Info. Example: "INFO"</param>
///<param name="dtg">A System.String that is the DTG1. Example: "DTG"</param>
///<param name="eType">A System.String that is the EType. Example: "TYPE"</param>
///   
///<returns>An IPropertySet interface for tactical graphics.</returns>
///   
///<remarks>Pass strings to create a property set to be used for tactical graphic creation.</remarks>
public ESRI.ArcGIS.esriSystem.IPropertySet GetTacticalGraphicPropertySet(System.String name, System.String symbid, System.String info, System.String dtg, System.String eType)
{
  ESRI.ArcGIS.esriSystem.IPropertySet propertySet=new ESRI.ArcGIS.esriSystem.PropertySetClass();

  propertySet.SetProperty("Name", name);
  propertySet.SetProperty("Symbol_ID", symbid);
  propertySet.SetProperty("Info", info);
  propertySet.SetProperty("DTG", dtg);
  propertySet.SetProperty("Name1", name);
  propertySet.SetProperty("DTG1", dtg);
  propertySet.SetProperty("Info1", info);
  propertySet.SetProperty("EType", eType);

  return propertySet;
}

'''<summary>Sets the values for the commonly used Tactical Graphic properties.</summary>
'''  
'''<param name="name">A System.String that is the Name. Example: "PHASE LINE ALPHA"</param>
'''<param name="symbid">A System.String that is the Symbol_ID. Example: "GFGPGLP-------X"</param>
'''<param name="info">A System.String that is the Info. Example: "INFO"</param>
'''<param name="dtg">A System.String that is the DTG1. Example: "DTG"</param>
'''<param name="eType">A System.String that is the EType. Example: "TYPE"</param>
'''   
'''<returns>An IPropertySet interface for tactical graphics.</returns>
'''   
'''<remarks>Pass strings to create a property set to be used for tactical graphic creation.</remarks>
Public Function GetTacticalGraphicPropertySet(ByVal name As System.String, ByVal symbid As System.String, ByVal info As System.String, ByVal dtg As System.String, ByVal eType As System.String) As ESRI.ArcGIS.esriSystem.IPropertySet

  Dim propertySet As ESRI.ArcGIS.esriSystem.IPropertySet=New ESRI.ArcGIS.esriSystem.PropertySetClass
  propertySet.SetProperty("Name", name)
  propertySet.SetProperty("Symbol_ID", symbid)
  propertySet.SetProperty("Info", info)
  propertySet.SetProperty("DTG", dtg)
  propertySet.SetProperty("Name1", name)
  propertySet.SetProperty("DTG1", dtg)
  propertySet.SetProperty("Info1", info)
  propertySet.SetProperty("EType", eType)

  Return propertySet

End Function