Windowsメタファイルの描画(VB)

説明：

キーワード：

サンプルコード：

'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