[448.xls]



' [mjSumple] のコード
'■■ ユーザーフォーム全体にピクチャを並べて表示する ■■
'
'
Const strBmpPath = "C:\WINDOWS\レッド タイル.bmp"

'フォームを表示します
Sub frmSumple_Show()
           
    '背景に画像を表示
    frmSumple.Picture = LoadPicture(strBmpPath)
    'タイル状に並べて表示
    frmSumple.PictureTiling = True
    
    'フォームの表示
    frmSumple.Show

End Sub