hmm having trouble... (Picturebox, ImageList)

VB Code:

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?

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.

Thanx! :cool: