Public Function dupImage(ByVal img As Image, ByVal xc As Integer, ByVal yc _
      As Integer) As Image
        Dim bm As New Bitmap(img.Width * xc, img.Height * yc)
        Dim g As Graphics = Graphics.FromImage(bm)
        For i As Integer = 0 To xc - 1
            For j As Integer = 0 To yc - 1
                g.DrawImage(img, img.Width * i, img.Height * j)
            Next
        Next
        Return bm
    End Function

Those people who think they know everything are a great annoyance to those of us who do - Isaac Asimov