如何获得WMF的W和H参数。

  Dim ImgName, W, H, oScale
  oScale = 2
  ImgName = App.Path & "\WMF\" & "Drawing1.wmf"
  With Me.Image1
    .Stretch = True
    .Picture = LoadPicture(ImgName)
    W = .Width
    H = .Width
  End With
此方法只能获得Image控件的Width和Height参数。
目标需求是
WMF图片的Width和Height参数.
谢谢。