Public Class UserCtrl : Inherits System.Web.UI.UserControl
 
End Class
 
Public Class PaginaBase : Inherits System.Web.UI.Page
 
    Public Sub New()
    End Sub
 
End Class
 
Public NotInheritable Class Inciso3 : Inherits PaginaBase
 
End Class

Public NotInheritable Class Multi
 
    Public ReadOnly Property UserCtrl As UserCtrl
        Get
            Return Me.userCtrlB
        End Get
    End Property
    Private userCtrlB As UserCtrl
 
    Public ReadOnly Property PaginaBase As PaginaBase
        Get
            Return Me.paginaBaseB
        End Get
    End Property
    Private paginaBaseB As PaginaBase
 
    Public Sub New()
        Me.userCtrlB = New UserCtrl
        Me.paginaBaseB = New PaginaBase
    End Sub
 
End Class

Public Class TestClass
    Inherits Otraclass
    Implements System.IDisposable, 
               System.ComponentModel.IComponent, 
               System.Web.IHttpHandler, 
               System.Web.UI.IControlBuilderAccessor, 
               System.Web.UI.IControlDesignerAccessor, 
               System.Web.UI.IDataBindingsAccessor, 
               System.Web.UI.IExpressionsAccessor, 
               System.Web.UI.IFilterResolutionService, 
               System.Web.UI.INamingContainer, 
               System.Web.UI.IParserAccessor, 
               System.Web.UI.IUrlResolutionService
 
    Public Event Disposed(sender As Object, e As EventArgs) Implements IComponent.Disposed
 
    Public Property Site As ISite Implements IComponent.Site
 
    Public ReadOnly Property DataBindings As Web.UI.DataBindingCollection Implements Web.UI.IDataBindingsAccessor.DataBindings
        Get
        End Get
    End Property
 
    Public ReadOnly Property HasDataBindings As Boolean Implements Web.UI.IDataBindingsAccessor.HasDataBindings
        Get
        End Get
    End Property
 
    Public ReadOnly Property ControlBuilder As Web.UI.ControlBuilder Implements Web.UI.IControlBuilderAccessor.ControlBuilder
        Get
        End Get
    End Property
 
    Public ReadOnly Property UserData As IDictionary Implements Web.UI.IControlDesignerAccessor.UserData
        Get
        End Get
    End Property
 
    Public ReadOnly Property Expressions As Web.UI.ExpressionBindingCollection Implements Web.UI.IExpressionsAccessor.Expressions
        Get
        End Get
    End Property
 
    Public ReadOnly Property HasExpressions As Boolean Implements Web.UI.IExpressionsAccessor.HasExpressions
        Get
        End Get
    End Property
 
    Public Sub New()
    End Sub
 
    Public ReadOnly Property IsReusable As Boolean Implements Web.IHttpHandler.IsReusable
        Get
        End Get
    End Property
 
    Public Sub ProcessRequest(context As Web.HttpContext) Implements Web.IHttpHandler.ProcessRequest
    End Sub
 
    Public Function CompareFilters(filter1 As String, filter2 As String) As Integer Implements Web.UI.IFilterResolutionService.CompareFilters
    End Function
 
    Public Function EvaluateFilter(filterName As String) As Boolean Implements Web.UI.IFilterResolutionService.EvaluateFilter
    End Function
 
    Public Sub AddParsedSubObject(obj As Object) Implements Web.UI.IParserAccessor.AddParsedSubObject
    End Sub
 
    Public Function ResolveClientUrl(relativeUrl As String) As String Implements Web.UI.IUrlResolutionService.ResolveClientUrl
    End Function
 
    Public Function GetDesignModeState() As IDictionary Implements Web.UI.IControlDesignerAccessor.GetDesignModeState
    End Function
 
    Public Sub SetDesignModeState(data As IDictionary) Implements Web.UI.IControlDesignerAccessor.SetDesignModeState
    End Sub
 
    Public Sub SetOwnerControl(owner As Web.UI.Control) Implements Web.UI.IControlDesignerAccessor.SetOwnerControl
    End Sub
 
#Region "IDisposable Support"
    Private disposedValue As Boolean ' To detect redundant calls
 
    ' IDisposable
    Protected Overridable Sub Dispose(disposing As Boolean)
        If Not Me.disposedValue Then
            If disposing Then
                ' TODO: dispose managed state (managed objects).
            End If
 
            ' TODO: free unmanaged resources (unmanaged objects) and override Finalize() below.
            ' TODO: set large fields to null.
        End If
        Me.disposedValue = True
    End Sub
 
    ' TODO: override Finalize() only if Dispose(ByVal disposing As Boolean) above has code to free unmanaged resources.
    'Protected Overrides Sub Finalize()
    '    ' Do not change this code.  Put cleanup code in Dispose(ByVal disposing As Boolean) above.
    '    Dispose(False)
    '    MyBase.Finalize()
    'End Sub
 
    ' This code added by Visual Basic to correctly implement the disposable pattern.
    Public Sub Dispose() Implements IDisposable.Dispose
        ' Do not change this code.  Put cleanup code in Dispose(disposing As Boolean) above.
        Dispose(True)
        GC.SuppressFinalize(Me)
    End Sub
#End Region
 
End Class

@Echo OFF & Setlocal EnableDelayedExpansion
 
Set /A "Max=0"
Set /A "Min=100"
Set    "Values=5,3,8,12,10"
 
For %%v in (%Values%) Do (
 
	If %%v LEQ !Min! (Set /A "Min=%%v")
	If %%v GEQ !Max! (Set /A "Max=%%v")
	<Nul Set /P"=%%v "
)
 
Echo+ 
Echo Minimum: !Min!
Echo Maximum: !Max!
 
Pause&Exit /B 0

    Public NotInheritable Class Form1 : Inherits Form
 
        Private WithEvents countdown As New TimeMeasurer With {.UpdateInterval = 100}
 
        Private Shadows Sub Load() Handles MyBase.Load
 
            ' Medir el lapso de 1 mes desde la fecha y hora actual.
            Me.countdown.Start(DateTime.Now, DateTime.Now.AddMonths(1))
 
        End Sub
 
        Private Sub Countdown_TimeUpdated(ByVal sender As Object, ByVal e As TimeMeasurer.TimeUpdatedEventArgs) _
        Handles countDown.TimeUpdated
 
            Me.lblCountDown.Text = String.Format("Days:{0:00} Hours:{1:00} Minutes:{2:00} Seconds:{3:00}",
                                                 e.Remaining.Days, e.Remaining.Hours, e.Remaining.Minutes, e.Remaining.Seconds)
 
        End Sub
 
    End Class

Public Class Form1
 
    Dim culture As CultureInfo = CultureInfo.GetCultureInfo("es-ES")
    Dim fechaLimite As Date = Date.ParseExact("01/10/2015 00:00:00", "dd/MM/yyyy hh:mm:ss", culture, DateTimeStyles.None)
 
    Private Sub Form1_Shown() Handles MyBase.Shown
        Timer1.Enabled = True
    End Sub
 
    Private Sub Timer1_Tick() Handles Timer1.Tick
 
        Dim dateDiff As TimeSpan = fechaLimite.Subtract(Date.Now)
        Dim dateFormat As String = "dddd dd, MMMM, yyyy"
 
        Dim sb As New StringBuilder
        With sb
            .AppendFormat("Fecha Actual: {0}", Date.Today.ToString(dateFormat, culture))
            .AppendLine()
            .AppendFormat("Fecha Límite: {0}", fechaLimite.ToString(dateFormat, culture))
            .AppendLine()
            .AppendFormat("Quedan: {0}", String.Format("{0:0}d. {1:00}h. {2:00}m. {3:00}s.",
                                                       dateDiff.TotalDays, dateDiff.Hours,
                                                       dateDiff.Minutes, dateDiff.Seconds))
        End With
 
        Me.Label1.Text = sb.ToString
 
    End Sub
 
End Class