Programación de Gráficos - generar metafiles

Private Declare Function CreateMetaFile Lib "gdi32" Alias "CreateMetaFileA" (ByVal lpFilename As String) As Long

Private Declare Function CloseMetaFile Lib "gdi32" (ByVal hdc As Long) As Long

Private Declare Function DeleteMetaFile Lib "gdi32" (ByVal hmf As Long) As Long

Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long

Private Declare Function ReleaseDC Lib "user32" (ByVal hwnd As Long, ByVal hdc As Long) As Long

Private Declare Function PlayMetaFile Lib "gdi32" (ByVal hdc As Long, ByVal hmf As Long) As Long

Private Sub btnGenerarMetafile_Click()

    Dim hMetafile As Long

    Dim hdc As Long

    ' Crear el metafile '

    hMetafile = CreateMetaFile("trazos.emf")

    ' Obtener el contexto de dispositivo del PictureBox '

    hdc = GetDC(PictureBox1.hwnd)

    ' Dibujar los trazos en el metafile '

    Circle hdc, 1000, 1000, 500

    Line hdc, 500, 500, 1500, 1500

    ' Liberar el contexto de dispositivo '

    ReleaseDC PictureBox1.hwnd, hdc

    ' Cerrar el metafile '

    CloseMetaFile hMetafile

    ' Mostrar el metafile en el PictureBox '

    PictureBox1.Picture = LoadPicture("trazos.emf")

    ' Reproducir el metafile en el PictureBox '

    PlayMetaFile PictureBox1.hdc, hMetafile

    ' Eliminar el metafile '

    DeleteMetaFile hMetafile

End Sub