hmm having trouble... (Picturebox, ImageList)

[TokersBall_CDXX]

Private Sub Command1_Click()
    Picture1.Circle (1000, 500), 250, 10
    Picture1.Line (1000, 750)-(1000, 2000), 10  'body
    Picture1.Line (1000, 1100)-(450, 900), 10  'left arm
    Picture1.Line (1000, 1100)-(1550, 900), 10 'right arm
    Picture1.Line (1000, 2000)-(450, 2700), 10  'left leg
    Picture1.Line (1000, 2000)-(1550, 2700), 10  'right leg
    Form1.ImageList1.ListImages.Add 1, , Picture1.Image
End Sub
 
Private Sub Command2_Click()
    Picture1.Cls
End Sub
Private Sub Command3_Click()
    Picture1.Picture = ImageList1.ListImages(1).Picture
    Picture1.Refresh
End Sub

Basically I'm trying to come up with a way to write sprites using pictures in a picturebox made using code.

how ever I can't get the picture in the picturebox to load into imagelist, then loaded back into the picturebox after clearing the picture box...any ideas?

[Joacim Andersson]

There's nothing wrong with your code, however the Image property of a PictureBox is always empty unless you've set the AutoRedraw property to True. So you've probably forgot to do so.

[TokersBall_CDXX]

Thanx!