Forma 1 Adet Shape ve 1 Adet Timer ekleyin ve Gerisini Koda Bırakın..

Kod:
Private Sub Form_Load() Shape1.Shape = 3 Shape1.FillColor = vbYellow Shape1.BorderColor = vbBlue Shape1.FillStyle = 0 Timer1.Interval = 10 End Sub Private Sub Timer1_Timer() Static topy, topx If IsEmpty(topy) Then topy = 50 topx = 50 End If If Shape1.Top = Me.ScaleHeight - Shape1.Height Then topy = -topy Beep End If If Shape1.Left = Me.ScaleWidth - Shape1.Width Then topx = -topx Beep End If Shape1.Left = Shape1.Left + topx Shape1.Top = Shape1.Top + topy End Sub
topu kucultmek icin kırmızı olan değerleri kucultunuz....
__________________