Buton1′in Click olayına aşağıdaki kodları yazıyoruz.
timer1.Enabled = True
Timer1′in Tick olayına aşağıdaki kodları yazıyoruz.
If pictureBox1.Right <= panel1.Left AndAlso pictureBox2.Right <= panel1.Left AndAlso pictureBox3.Right <= panel1.Left AndAlso pictureBox4.Right <= panel1.Left Then ' random ile değişkenler Dim i As Integer = 0 Dim resim(4) As Integer ' değişkenimiz 5 kadar For i = 0 To 4 ' for döngüsü işlemi ' resimlerin hareketi resim(i) =Int(Rnd() * 15 + 1) Next pictureBox1.Left = pictureBox1.Left + resim(0) pictureBox2.Left = pictureBox1.Left + resim(1) pictureBox3.Left = pictureBox1.Left + resim(2) pictureBox4.Left = pictureBox1.Left + resim(3) Else timer1.Enabled = False End If
