Visual Basic > Code Snippets

Save wmf to bmp

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