[447.xls]



' [mjSumple] のコード
'■■ ユーザーフォームの背景にピクチャを表示する ■■
'
'
Const strBmpPath = "C:\WINDOWS\セットアップ.bmp"

'フォームを表示します
Sub frmSumple_Show()
           
    '背景に画像を表示
    frmSumple.Picture = LoadPicture(strBmpPath)
    
    'フォームの表示
    frmSumple.Show

End Sub