🚀 go-pugleaf

                   vb��wmf�ļ�����ʾ����

    form1����picture1, command1��command2, ��Ԥ��picture1��
��gdi������ʾc:\yinyang.wmf, ��������:

Private Sub Command1_Click()
  Dim hMF, MyReturn As Long
  hMF = GetMetaFile("c:\yinyang.wmf")
  MyReturn = PlayMetaFile(Form1.Picture, hMF)
End Sub

Private Sub Command2_Click()
  Dim MyReturn As Long
  MyRreturn = DeleteMetaFile(hMF)
  End
End Sub

�����õ�����������:
Declare Function GetMetaFile Lib "gdi32" Alias "GetMetaFileA" (ByVal
lpFileName As String) As Long
Declare Function PlayMetaFile Lib "gdi32" (ByVal hdc As Long, ByVal hMF
As Long) As Long
Declare Function DeleteMetaFile Lib "gdi32" (ByVal hMF As Long) As Long

����������, ������command1ʱ, û��Ԥ�ڵ�ͼ����ʾ, �������?