VB Code:
  1. Image1.Picture = LoadResPicture(101, vbResBitmap)