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