'Windowsメタファイルの描画 Private Sub Command1_Click() Dim hWmf As Long 'Windowsメタファイルのハンドル 'Windowsメタファイルのオープン hWmf = GetMetaFile("c:\pic\test.wmf") 'Windowsメタファイルの描画 PlayMetaFile Picture1.hDC, hWmf 'Windowsメタファイルのクローズ DeleteMetaFile hWmf End Sub