Однако проблемка с *.emf

[Юрий Х]

Имеется PictureBox в котором создан небольшой чертеж с помощью простых функций типа Line, Circle. Полученое изображение хочу сохранить в *.emf, однако в результате получаю файлик, который открывается, имеет размеры соответствуюшие размеру PictureBox, белый фон и больше ничего. Где я лажанулся? Код присовокупляю, API вызовы нет.

(pbxP это PictureBox, geo - имя приложения)

Dim strFileName As String, strAppName As String
Dim picRect As RECT, lngEMFhDC As Long, lngEMFCreate As Long
Dim lngEMFClose As Long
strFileName = "test4.emf"
strAppName = "geo\0" & strFileName & "\0\0"
picRect.Top = 0
picRect.Left = 0
picRect.Right = frmMain.pbxP.Width * 1000 / 567
picRect.Bottom = frmMain.pbxP.Height * 1000 / 567
lngEMFCreate = CreateEnhMetaFile(frmMain.pbxP.hdc, strFileName, picRect, strAppName)
lngEMFClose = CloseEnhMetaFile(lngEMFCreate)
DeleteEnhMetaFile lngEMFClose