Создайте таймер, задайте интервал, объявите глобальную переменную-счетчик. Присвойте переменной значение (например, при загрузке формы или по кнопке). В событии таймера уменьшайте значение переменной-счетчика и отображайте значение на экран. Ну и проверочка нужна по достижению значения ноль. Dim Count As Integer Count = 6 Count = Count - 1 TextBox.Text = Str$(Count) If Count = 0 Then Timer1.Enable = False Суть понятна?