'比如說妳有兩個窗體,Form1有壹個按鈕(Command1),用於點擊來彈出圖片窗體;Form2放置壹個圖片控件(PictureBox1),並將控件調整到妳需要的位置及大小,用來顯示圖片。
'Form1添加按鈕點擊事件:
Private Sub Command1_Click()
Dim NewForm As Form
Set NewForm = New Form2
NewForm.Picture1.Picture = LoadPicture("圖片的文件路徑") '此處妳可以指定相應圖片的路徑
NewForm.Show
'... 妳可以添加窗體的Left及Top來定位,或者其它所需的代碼。
End Sub
'妳也可以在Form2上預設壹些代碼,放在Form_Load的事件裏,通過過載彈出窗體後執行。