here's the visual basic version. you'll have to unescape the img tag

Code:
Module Module1

Sub Main()

Dim sString As String
sString = ""

For i As Integer = 1 To 20

sString = sString & "[IM\G]http://bayimg.com/ed52bd8d27506fc46b2b04d70a7f6d535145cd48.jpg[/IMG]"

Next i

My.Computer.Clipboard.SetText(sString)

End Sub

End Module