codice:
Private tmr As Timer
    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        tmr = New Timer
        AddHandler tmr.Tick, AddressOf tmr_tick
    End Sub

    Private Sub tmr_tick(sender As Object, e As EventArgs)
        'TODO: Codice di getione delle palline
    End Sub

Private sub Bt_Click() handles button1.click
        tmr.Interval = 1000
        tmr.Enabled = True
        tmr.Start()
end sub
intendi così??
Facci sapere...
Ciao