在工程中添加下列代码：Private Sub Form_Load() Me.Picture = LoadPicture(App.Path + "\room2.jpg")End Sub然后生成EXE文件，即可。
