Een vierkant van binnen naar buiten en het tegenovergestelde

[satriano17]

Ik heb
1 timer
1 picture1

En met deze code kan ik een vierkant tekenen die van het centrum van de picture naar buiten gaat.

Dim Toeslag As Integer
Dim Verhouding As Single
Dim X As Integer
Dim Y As Integer
  
Private Sub Form_Load()
Picture1.ScaleMode = 3
Verhouding = Picture1.ScaleHeight / Picture1.ScaleWidth
X = Picture1.ScaleWidth / 2
Y = Picture1.ScaleHeight / 2
Toeslag = 0
Timer1.Interval = 50
End Sub
  
Private Sub Timer1_Timer()
Picture1.Cls ' naar buiten toe
Toeslag = Toeslag + 10
Picture1.Line (X - (Toeslag), Y - (Toeslag * Verhouding))-(X + (Toeslag), Y + (Toeslag * Verhouding)), vbRed, B
If X - Toeslag < 0 Then
'
X = Picture1.ScaleWidth / 2
Y = Picture1.ScaleHeight / 2
Toeslag = 0
End If
End Sub

Hoe/waar te wijzigen om ook het tegenovergestelde te bereiken, dus afwisselend, van binnen naar buiten en van buiten naar binnen?

Dank u