Private Sub Form_Load () on Error ResMe nextddim A as stringa = commanda = replace (a, chr (34), "") me.picture2.picture = loadingPicture (a) if err.Number <> 0 ThenMSGBox Err.DescriptionEND IF
End Sub
Private Sub Form_Resize () ON Error ResMe nextif Me.Height> 300 and me.width> 300 Thenme.Picture1.zorder 0me.Picture1.Move 0, 0, Me.Width - 50, Me.Height - 50if Not Picture2.Picture IS Nothing thricture1.paintPicture me.picture2.picture, 0, 0, me.picture1.width, me.picture1.height, 0, 0, me.picture2.width, me.picture2.heightend ifnd Ifnd Sub compiled in the picture Open Add a file name after you compile
