| 'save wmf to bmp
'add a picture box and a command button to a form
Private Sub Command1_Click()
' Load meta file wmf
Picture1.Picture = LoadPicture("d:\myexample.wmf")
' Save meta picture to bitmap file format
SavePicture Picture1.Image, "d:\myexample.bmp"
End Sub
|