假設 Form 的 Picture 屬性已經設定成某一張圖片, 接下來如何把它並排, 並且佔滿整個 Form 呢?
在 Form_Paint 事件程序中撰寫以下程式即可:
Private Sub Form_Paint() For I = 0 To ScaleWidth \ Picture.Width For J = 0 To ScaleHeight \ Picture.Height PaintPicture Picture, I * Picture.Width, J * Picture.Height Next Next End Sub