04-12-2006, 01:07 AM
Can you not just do...
?
Code:
Private Sub Form_Load()
' Center the form.
Move (Screen.Width - Width) / 2, (Screen.Height - Height) / 2
' Move the picture on top of the other controls.
picTest.ZOrder
picTest.ScaleMode = vbPixels
picTest.AutoRedraw = True
picTest.Picture = picTest.Image
' Trim the picture.
TrimPicture picTest, &HFF00FF
' Move the picture on top of the other controls.
picTest2.ZOrder
picTest2.ScaleMode = vbPixels
picTest2.AutoRedraw = True
picTest2.Picture = picTest2.Image
TrimPicture picTest2, &HFF00FF
End Sub
?