Dim o1 As Image = CType(My.Resources.ResourceManager.GetObject( _
  "StdBackGround"), Image)
Dim MS As New IO.MemoryStream()
o1.Save(MS, Imaging.ImageFormat.Jpeg)
Dim lLen As Long = MS.Length
Dim Buf = MS.GetBuffer
AxAMC.SetImage(Buf, lLen)
o1 = Nothing
MS = Nothing