' Visual Basic 2008 9.0 .NET Examples - Statementblcok Variables - Procedures and Functions : 
Module Example1
    Sub Main()
        Dim someCondition As Boolean
        If someCondition Then
            Dim ifVariable As Integer
            '...
        Else
            Dim elseVariable As Integer
            '...
        End If
        '
        Dim someExpression As Integer
        Select Case someExpression
            Case 1
                Dim caseVariable As Integer
        End Select
        '
        Do
            Dim doVariable As Integer
            '...
        Loop
        '
        For forVariable1 As Integer = 1 To 10
            Dim forVariable2 As Integer
            '...
        Next
        '
        Dim someCollection As Integer()
        For Each forEachVariable1 As Integer In someCollection
            Dim forEachVariable2 As Integer
            '...
        Next
    End Sub
End Module
Module Example2
    Sub Main()
        For count As Integer = 1 To 5
            Dim forVariable As Integer
            Console.WriteLine(forVariable)
            forVariable += 1
        Next
        Console.WriteLine()
        '
        For count As Integer = 1 To 5
            Dim forVariable As Integer = 1
            Console.WriteLine(forVariable)
            forVariable += 1
        Next
        '
        Console.ReadLine()
    End Sub
End Module

' Visit www.studyvb.com for more examples.  Copyright 2003-2008 De Wolf.