フォームの背景を同じ画像で埋め尽くすってできるの？ (ID:83831)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 たとえば Option Explicit Private Sub Form_Load() Dim ix As Single Dim iy As Single Me.AutoRedraw = True Picture1.AutoSize = True Picture1.Picture = LoadPicture("C:\WINNT\winnt.bmp") For iy = 0 To Me.ScaleHeight Step Picture1.ScaleHeight For ix = 0 To Me.ScaleWidth Step Picture1.ScaleWidth Me.PaintPicture Picture1.Picture, _ ix, iy, _ Picture1.ScaleWidth, Picture1.ScaleHeight, _ 0, 0, _ Picture1.ScaleWidth, Picture1.ScaleHeight Next Next Picture1.Visible = False End Sub とか？