Untitled

' Name:         TwoToTenAsterisks Project
' Purpose:      Display a pattern of asterisks
' Programmer:   <William Craft> on <4/17/11>

Public Class frmMain

    Private Sub btnExit_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnExit.Click
        Me.Close()
    End Sub

    Private Sub btnDisplay_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnDisplay.Click
        Dim intNested As Integer
        Dim intCounter As Integer
        For intOuter = 1 To 5
            intNested = intNested + 2
            Do While intCounter < intNested
                intCounter = intCounter + 1
                lblAsterisks.Text = lblAsterisks.Text & "*"
            Loop
            lblAsterisks.Text = lblAsterisks.Text & ControlChars.NewLine
        Next intOuter
    End Sub
End Class