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