やっぱり一人ではなかなかすすみそうにありません･･･
PictureオブジェクトをBitBltを使ってPictureコントロールに
転送する方法がわかりません。とりあえず検索してみたのですが
やはりでてこないです。どうか皆様この愚民の私をお助けいただけたら
幸いです。

とりあえずコード晒しときます･･･
Dim FileN As String
Dim PicFile As Picture

FileN = App.Path & "\image" & "\clouds\" & "clo1.bmp"

Set PicFile = LoadPicture(FileN)

BitBlt frmMain.PicBack.hDC, 0, 0, 640, 320, PicFile.Handle, 0, 0, vbSrcCopy