If i = 1 Then sr.Points.PointType = PointType.FillCircle End If If i = 2 Then sr.Points.PointType = PointType.FillRectangle End If If i = 3 Then sr.Points.PointType = PointType.FillTriangle End If If i = 4 Then sr.Points.PointType = PointType.Image sr.Points.PointImage = "C:\Documents and Settings\Administrator\My Documents\My Pictures\hwatoo_missiongray.gif" End If