Note to community

[mholmes_3038]

This is overly wordy commenting but thats just my thoughts. Here is how I comment:

 Private Sub frmGame_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'Reset
        ResetDisplay()

        'Initialize List
        Numbers = New List(Of Integer)

        'Start Timer
        BingoTimer.Start()

        'Generate Card
        For index = 0 To 41
            CardNumbers(index) = Rand.Next(1, 100)
        Next

        'Images
        imgGridBall(0) = "Images\Ball_1.png"
        imgGridBall(1) = "Images\Ball_2.png"
        imgGridBall(2) = "Images\Ball_3.png"

        'Build Grid
        BuildGrid()
    End Sub

[Evil_Giraffe]

This is overly wordy commenting but thats just my thoughts. Here is how I comment:

As a few others have said, those comments are largely restating the code without adding anything. There is one comment that adds some value, the "Generate card" comment on the loop. And you don't need to have a comment to say that. How about this:

 Private Sub frmGame_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ResetDisplay()
        Numbers = New List(Of Integer)
        BingoTimer.Start()
        GenerateCard()
        SetImages()
        BuildGrid()
    End Sub

    Private Sub GenerateCard
        For index = 0 To 41
            CardNumbers(index) = Rand.Next(1, 100)
        Next
    End Sub

    Private Sub SetImages()
        imgGridBall(0) = "Images\Ball_1.png"
        imgGridBall(1) = "Images\Ball_2.png"
        imgGridBall(2) = "Images\Ball_3.png"
    End Sub