Boa dia meu nome é Maycon e gostaria de saber se alguem sabe como fazer um cronometro ou um contador de tempo, quando acabar o tempo o furmulario seja fechado...

desde ja agradeço...

falow

Tente esse. Para testar coloque um timer e um label num form e cole o código abaixo:

Dim Horas As Integer, Minutos As Integer, Segundos As Integer

Private Sub Form_Load()
    
    ' Seta o timer para regredir 1 minuto
    Horas = 0
    Minutos = 1
    Segundos = 0
    Timer1.Interval = 1000
    Timer1.Enabled = True
    
End Sub

Private Sub Timer1_Timer()

    ' Ajusta os contadores
    If Segundos < 0 Then
        Segundos = 59
        Minutos = Minutos - 1
        If Minutos < 0 And Horas > 0 Then
            Minutos = 59
            Horas = Horas - 1
        End If
    End If
    
    ' Mostra o resultado num label
    Label1 = Format(Horas, "00") & ":" & Format(Minutos, "00") & ":" & Format(Segundos, "00")
    
    ' Checa para ver se já acabou
    If Horas = 0 And Minutos = 0 And Segundos = 0 Then
        Timer1.Enabled = False
        MsgBox "Tempo Esgotado!", vbInformation, App.Title