Form layout:
Control: Timer1 Property Settings: Timer1.Iterval = 1
Code:
DIM K AS INTEGERPRIVATE SUB TIMER1_TIMER () K = K 20Line (Me.Width / 2, Me.Height / 2) - (0, K), RGB (0, 0, ABS (255 - K / 24)) LINE Me.Width / 2, Me.height / 2) - (k, 0), RGB (0, 0, ABS (255 - K / 24)) Line (me.width / 2, me.height / 2) - K, 0), RGB (0, 0, ABS (255 - K / 24)) line (me.width / 2, me.height / 2) - (Me.Width, K), RGB (0, 0, ABS (255 - k / 24)) line (me.width / 2, me.height / 2) - (Me.Width, K), RGB (0, 0, ABS (255 - (Me.Height - K) / 24 )) Line (Me.Width / 2, Me.Height / 2) - (k, me.height), RGB (0, 0, ABS (255 - K / 24)) line (Me.Width / 2, ME. Height / 2) - (k, me.height), RGB (0, 0, ABS (255 - k / 24)) line (me.width / 2, me.height / 2) - (0, k), RGB (0, 0, ABS (255 - (Me.Height - K) / 24))))) ife k> 12500 ThenTimer1.enabled = false
END IF
End Sub
