Formunuzda etrafa çarpıp ses çikartan hareketli bir top

1 radiobutton ve 1 timer ekleyin.





Public Class Form1

    Inherits System.Windows.Forms.Form



#Region " Windows Form Designer generated code "

   



Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

  RadioButton1.Text = ""

  RadioButton1.Width = 10

  Timer1.Interval = 50

  Timer1.Enabled = True

End Sub



Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

  Static sx = 5, sy = 5, x = RadioButton1.Left, y = RadioButton1.Top

  If y <= 0 Or y + RadioButton1.Height >= Me.ClientSize.Height Then

   'Formun üstüne veya altına ulaşıldı ise artımı ters çevir

   sy = -sy 'artış yönünü ters çevir

   Beep()

  End If

  If x <= 0 Or x + RadioButton1.Width >= Me.ClientSize.Width Then

   'Formun soluna veya sağına ulaşıldı ise artımı ters çevir.

   sx = -sx 'artış yönünü ters çevir

   Beep()

  End If

  x = x + sx

  y = y + sy

  RadioButton1.Left = x

  RadioButton1.Top = y

End Sub

End Class