updated-March 16-Line counter program... if you want

[MrPolite]

changed it to this, it should work fine now, I guess:

While sr.Peek <> -1
                aLine = sr.ReadLine().Trim()
                If aLine.Length = 0 Then
                    codeInfo.EmptiesCount += 1
                ElseIf aLine.StartsWith("/*") Then
                    While sr.Peek <> -1
                        codeInfo.CommentCount += 1
                        If aLine.IndexOf("*/") <> -1 Then
                            Exit While
                        End If
 
                        aLine = sr.ReadLine
                    End While
 
                ElseIf aLine.StartsWith("//") Then
                    codeInfo.CommentCount += 1
                Else
                    codeInfo.CodeCount += 1
                End If
            End While

I'd appreciate some more testers