SoloCodigo

????????????????? y que quieres hacer ???????????????? no se entiende

el timer con solo ponerle 1000 ya te da un segundo y para que vaya en cuenta regresiva porque no pones algo asi:

Dim x As Byte

Private Sub Timer1_Timer()
If x = 10 Then
    MsgBox "fin"
    Timer1.Enabled = False
    Exit Sub
End If
Me.Print 10 - x
x = x + 1
End Sub

O algo asi se me hace mucho mas facil, mira agrega un label y un timer, y cambia la propiedad de interval de ltimer a 1000

Saludos

O algo asi se me hace mucho mas facil, mira agrega un label y un timer, y cambia la propiedad de interval de ltimer a 1000

Es Exactamente lo mismo solo que no inserte un label para hacerlo mas rapido