sayfa

Private Sub Form_Load()
Timer1.Interval = 1000
Dim ilk
End Sub

Private Sub Timer1_Timer()
If sayiy = 0 And sayix < 2250 Then sayix = sayix + 150
If sayix = 2250 And sayiy < 2250 Then sayiy = sayiy + 150

If sayiy = 2250 And sayix > 0 Then sayix = sayix - 150
If sayiy > 0 And sayix = 0 Then sayiy = sayiy - 150

Text1 = sayix
Text2 = sayiy

resim.Cls
resim.Line (sayix, sayiy)-(1000, 1000), Color

End Sub

var kt_mc:kutu = new kutu();
addChild(kt_mc);
var yazi:TextField=new TextField();
yazi.text='aaa';
kt_mc.addChild(yazi);