Drawing in a picture box

[vbdog]

Iam calling the sub below a number of times until the picture is drawn. But when i Minimized the form the drawing clears.

can anyboddy help please.

Sub drawscreen()
 
Dim g As Graphics
Dim bmap As Bitmap
bmap = New Bitmap(picgame.Width, picgame.Height, _
picgame.CreateGraphics)
 
g = Graphics.FromImage(bmap)
 
Dim p As New Point()
p.X = 1 + x + (i * 4)
p.Y = y + (j * 4)
 
 
If bmap.GetPixel(p.X, p.Y) = System.Drawing.Color.FromArgb(255, 255, 255) Then
v(&HF) = 1
 
picgame.CreateGraphics.DrawLine(Pens.Black, 1 + x + (i * 4), y + (j * 4), 1 + x + (i * 4) + 3, y + (j * 4) + 3)
 
Else
picgame.CreateGraphics.DrawLine((Pens.White), 1 + x + (i * 4), y + (j * 4), 1 + x + (i * 4) + 3, y + (j * 4) + 3)
 
End If
 
g.Dispose()
end sub
 
I have tryed picgame.Image = bmap but it did not draw.
 
ProtectedOverridesSub OnPaint(ByVal e As System.Windows.Forms.PaintEventArgs)
DrawSprite() ' calls drawscreen()
 
MyBase.OnPaint(e)
 
EndSub
 

thanks karl

[vbdog]

Just change the code below but it just draws a pixel then clears the pixel then draws another then clears and so on

Dim m_imageList As ImageList
m_imageList = New ImageList
m_imageList.ImageSize = New Size(110, 42) 'Change to whatever size you are needing
Dim bmp As New Bitmap(110, 42, Drawing.Imaging.PixelFormat.Format32bppArgb)
Dim g As Graphics
g = Graphics.FromImage(bmp)
bmp.CreateGraphics.DrawLine(.......stuff
g.Dispose()
m_imageList.Images.Add(bmp)
picgame.Image() = m_imageList.Images(0)
 

[vbdog]

Fixed Now thanks