vb6 由外部往內繞繪線

參考引用來源
--
 Option Explicit

Private Sub Form_Load()
Dim i As Integer, j As Integer, k As Integer
Dim x As Integer, y As Integer
Form1.ScaleMode = 3
Form1.AutoRedraw = True

x = Form1.ScaleWidth \ 2
y = Form1.ScaleHeight \ 2
j = 8
k = 8
For i = 0 To 5
Form1.Line (x, y)-(x - j, y)
x = x - j
j = j + k
Form1.Line (x, y)-(x, y + j)
y = y + j
j = j + k
Form1.Line (x, y)-(x + j, y)
x = x + j
j = j + k
Form1.Line (x, y)-(x, y - j)
y = y - j
j = j + k
Next i
End Sub