IPointCollection AddPoint Example

[Visual Basic 6.0]
Public Function AddPointToMP(pMP As IMultipoint, pPoint As IPoint) As IMultipoint
   If (pMP Is Nothing) Then
      Set pMP = New Multipoint
   End If
   
   Dim pPtCol As IPointCollection
   Set pPtCol = pMP
   
   pPtCol.AddPoint pPoint
   Set AddPointToMP = pMP
End Function

[Visual Basic .NET, C#, C++]
No example is available for Visual Basic .NET, C#, or C++. To view a Visual Basic 6.0 example, click the Language Filter button in the upper-left corner of the page.