Visual Basic

Public Sub New(ByVal Filename as string, Byval Flag as Boolean)
InitializeComponent()
RecieveFile(Filename, Flag)
End Sub

Dim thePanelArray(2)<br />
For i = 0 to 2<br />
   Dim p As New Panel()<br />
   p.Location = New Point(10, 10 + i * 30)<br />
   thePanelArray(i) = p<br />
Next

Guffa wrote:

then create the panels in a loop an put them on the form:

Public Function imageToByteArray(ByVal ImageIn As System.Drawing.Image) As Byte()<br />
        Dim ms As MemoryStream = New MemoryStream()<br />
        ImageIn.Save(ms, Imaging.ImageFormat.Bmp)<br />
        Return ms.ToArray()<br />
   End Function

Public Function ByteArrayToimage(ByVal ImageArray As Byte()) As Image<br />
      Dim ms As MemoryStream = New MemoryStream(ImageArray)<br />
      Dim ReturnImage As Image = Image.FromStream(ms)<br />
      Return ReturnImage<br />
  End Function

Vuyiswa Maseko wrote:

Am Sorry vb6 is Doomed.