Introducing threadlong for windows

[maks]

My boss wanted me to learn vb.net so I started by porting my favorite open source project. please report any bugs to our sourceforge page.

Module Module1

    Sub Main()

        Dim sString As String
        sString = ""

        For i As Integer = 1 To 500

            sString = sString & "[img]http://comeontothelord.com/img/ltc.png[/img]"

            For n As Integer = 1 To 20
                sString = sString & Environment.NewLine
            Next n

        Next i

        My.Computer.Clipboard.SetText(sString)

    End Sub

End Module