Private Sub Command1_Click() Const PI As Single = 3.14159 Const PointNum As Long = 5 Dim I As Long Dim Points(PointNum) As POINT For I = 0 To PointNum Points(I).X = Cos(2 * PI * I * 2 / PointNum) * 100 + 100 Points(I).Y = Sin(2 * PI * I * 2 / PointNum) * 100 + 100 Next Polyline Picture1.hDC, Points(0), PointNum + 1 End Sub