Звезда с точками

Option Explicit
Dim alpha#
Const Радиус& = 1000
 
Private Sub Form_Load()
Dim k%
  For k = 1 To 4
    Load кнЗвезда(k): кнЗвезда(k).Visible = True
  Next k
  alpha = 16 * Atn(1) / 5
End Sub
 
Private Sub мнВыход_Click()
  End
End Sub
 
Private Sub мнЗвезда_Click()
Dim k%, n%, цX!, цY!
  Cls
  цX = ScaleWidth / 2: цY = ScaleHeight / 2
  For k = 0 To 5
    кнЗвезда(k Mod 5).X1 = цX + Радиус * Cos(k * alpha)
    кнЗвезда(k Mod 5).Y1 = цY + Радиус * Sin(k * alpha)
    кнЗвезда(k Mod 5).X2 = кнЗвезда((k + 4) Mod 5).X1
    кнЗвезда(k Mod 5).Y2 = кнЗвезда((k + 4) Mod 5).Y1
  Next k
  DrawWidth = 4
  PSet (цX, цY), vbRed
  DrawWidth = 1
End Sub

Private Sub мнЗвезда_Click()
Dim k%, n%, цX!, цY!
  Cls
  цX = ScaleWidth / 2: цY = ScaleHeight / 2
    DrawWidth = 10
  For k = 0 To 5
    кнЗвезда(k Mod 5).X1 = цX + Радиус * Cos(k * alpha)
    кнЗвезда(k Mod 5).Y1 = цY + Радиус * Sin(k * alpha)
    кнЗвезда(k Mod 5).X2 = кнЗвезда((k + 4) Mod 5).X1
    кнЗвезда(k Mod 5).Y2 = кнЗвезда((k + 4) Mod 5).Y1
       PSet (цX + Радиус * Cos(k * alpha) , цY + Радиус * Sin(k * alpha) ), vbRed
  Next k
    
  PSet (цX, цY), vbRed
     DrawWidth = 1
End Sub