AnnSaveOffset example for Visual Basic

Private Declare Function CreateFile Lib "kernel32" Alias "CreateFileA" (ByVal lpFileName As String, ByVal dwDesiredAccess As Long, ByVal dwShareMode As Long, ByVal lpSecurityAttributes As Long, ByVal dwCreationDisposition As Long, ByVal dwFlagsAndAttributes As Long, ByVal hTemplateFile As Long) As Long
Private Declare Function CloseHandle Lib "kernel32" (ByVal handle As Long) As Long
Private Const GENERIC_WRITE = &H40000000
Private Const CREATE_ALWAYS = 2
Private Const FILE_ATTRIBUTE_NORMAL = &H80
Private Const INVALID_HANDLE_VALUE = -1

Private Sub SaveOffset_Click()
   Dim hFile As Long
   hFile = CreateFile("c:\temp\test1.wmf", GENERIC_WRITE, 0, 0, CREATE_ALWAYS, FILE_ATTRIBUTE_NORMAL, 0)
 
   If hFile = INVALID_HANDLE_VALUE Then
      MsgBox "Could not open file."
      Exit Sub
   End If
   LEAD1.AnnSaveOffset hFile, 0, hPlgn, ANNFMT_WMF, False
   CloseHandle hFile
End Sub