This is the code that I am using:
Private Sub plotlabels()
Dim lbls As MapWinGIS.Labels
lbls = AxMap1.get_DrawingLabels(hndsrcpnt)
lbls.FontSize = 10
lbls.FrameVisible = False
For i = 1 To nummapseqs
ProgressBar1.Value = ((i / nummapseqs) * 100)
For j As Int32 = 1 To numshots
If mapdata(i, j).x <> 0 Or mapdata(i, j).y <> 0 Then
lbls.AddLabel((j + mapindex).ToString, mapdata(i, j).x, mapdata(i, j).y, 0.0, -1)
End If
Next j
Next i
End Sub