Hola a todos
bueno estoy creando un pequeño juego y me eh topado con un problema....
Tengo mi codigo dentro de un timer, lo que hace es cada segundo mover un picturebox  en linea recta como si fuera un coche.... pero yo necesito que despues de X segundos vuelva a ejecutarse nuevamente el codigo para que movilize a otro picturebox

    Private Sub Carril1(ByVal obj As Control, ByVal x As Integer, ByVal y As Integer)

    End Sub

    Private Sub Timer1_Tick(B...............

   Carril1(Button6, C1x, C1y)

    End Sub
Es como si fuera una carrera de coches, ojala que me haya dejado entender... agradeceria bastante si me ayudasen solo quiero que me den una idea.... no quiero que me dean codigo solo una idea o pista

solo 2 autos pasaran por el mismo carril mi estimado, el problema es que nose como activar el 2do auto para que se visualize pero en X segundos..  yo pienso que es un Random pero la verdad nose como hacerlo.... iluminame.

Se me ocurre que podrías modificar el atributo "TAG" del timer para especificar (en modo de string) e identificar el control que quieres mover.

Aquí tienes un ejemplo que acabo de hacer, por si te sirve, aunque en lugar de usar el tag para especificar el control, lo hago para especificar la dirección (me aburría xD), puedes ajustarlo a tus necesidades...

Public Class Form1
 
    ' Añade 1 button y 2 picturebox al form
 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        MoveControl(PictureBox1, Direction.Up, 1, 2000)
        While StartMove.Enabled : Application.DoEvents() : End While
        MoveControl(PictureBox2, Direction.Up, 200, 10000)
    End Sub
 
#Region " Move controls "
 
    Dim ControlToMove As Control
    Dim StartMove As New Timer
    Dim EndMove As New Timer
 
    Public Enum Direction
        Up = 0
        Down = 1
        Left = 2
        Right = 3
    End Enum
 
    Public Sub MoveControl(ByVal Control As Control, _
                           ByVal Direction As Direction, _
                           ByVal Interval As Int16, _
                           ByVal TimeOut As Int16)
 
        ControlToMove = Control
 
        StartMove.Tag = Direction
 
        AddHandler StartMove.Tick, AddressOf StartMove_Tick
        AddHandler EndMove.Tick, AddressOf EndMove_Tick
 
        StartMove.Interval = Interval
        EndMove.Interval = TimeOut
 
        StartMove.Start()
        EndMove.Start()
 
    End Sub
 
    Private Sub StartMove_Tick(sender As Object, e As EventArgs)
        Select Case sender.tag
            Case 0 : ControlToMove.Location = New Point(ControlToMove.Location.X, ControlToMove.Location.Y - 1)
            Case 1 : ControlToMove.Location = New Point(ControlToMove.Location.X, ControlToMove.Location.Y + 1)
            Case 2 : ControlToMove.Location = New Point(ControlToMove.Location.X - 1, ControlToMove.Location.Y)
            Case 3 : ControlToMove.Location = New Point(ControlToMove.Location.X + 1, ControlToMove.Location.Y)
        End Select
    End Sub
 
    Private Sub EndMove_Tick(sender As Object, e As EventArgs)
        StartMove.Stop()
        EndMove.Stop()
    End Sub
 
#End Region
 
End Class

Que creo que ya lo resolvi... solo que aun me quedan unos problemas pero si creo poder mejorarlo... tengo una duda,en una  #Region....   que  codigo puedo agrupar ahi... o no entiendo 

Regiones, sumários de código XML y Namespaces, todo es para mantener el código ordenado, aunque los Namespaces si que interfieren en el código (se le da un uso más fácil) pero a mi punto de vista es más para organizar el código.

saludos