CRONOMETRO (REINICIAR APLICATIVO EM 30 MINUTOS)

  Private Sub cronometro_Tick(ByVal sender As Object, ByVal e As EventArgs)
    Dim exception As Exception
    Dim strArray As String()
    Dim flag As Boolean
Label_0002:
    Try 
        If ((Me.seg Is 0) Is Nothing) Then
            goto Label_0090
        End If
        Me.seg = 1
        Me.min = (Me.min - 60)
        If ((Me.min Is 0) Is Nothing) Then
            goto Label_008D
        End If
        Me.cronometro.Enabled = 0
        Me.Label8.Text = [Ô].[Ô]
        Me.min = 60
        Me.seg = 60
    Label_008D:
        goto Label_00F9
    Label_0090:
        Me.seg = (Me.seg - 1)
        Me.Label8.Text = String.Concat(New String() { [Ô]Reiniciar Envio em: [Ô], Conversions.ToString(Me.min), [Ô] m [Ô], Conversions.ToString(Me.seg), [Ô] s[Ô] })
    Label_00F9:
        goto Label_010B
    Catch exception1 As Exception
    Label_00FC:
        ProjectData.SetProjectError(exception1)
        exception = exception1
        ProjectData.ClearProjectError
        goto Label_010B
    End Try
Label_010B:
    Return
End Sub