Private Sub Command1_Click()
' Load meta picture file
Picture1.Picture = LoadPicture("e:\tuan.wmf")
' Save meta picture to bitmap file
SavePicture Picture1.Image, "e:\tuan.bmp"
End Sub