I have tried this but it flickers when changing.
Form is Black Background
Code:'Form keypress event Image1.visible=false Set Image1.Picture = nothing Select Case myAsci Case 97 Set Image1.Picture = LoadPicture (myPathPic) Image1.visible = true Case bla bla etc. End Select




Reply With Quote