[ferget]

VB6 нету, вот пример на VB.net

Код:

Public Partial Class MainForm
	
	Private Dim i As Integer
	
	Public Sub New()
		Me.InitializeComponent()
		timer1.Start()
	End Sub
	
	Sub Timer1Tick(sender As Object, e As EventArgs)
		i=i+1
		textBox1.Text=i.ToString()
		timer1.Stop()
		timer2.Start()
	End Sub
	
	Sub Timer2Tick(sender As Object, e As EventArgs)
		i=i+1
		textBox2.Text=i.ToString()
		timer2.Stop()
		timer1.Start()
	End Sub
End Class