Public Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (ByRef _
  hpvDest As Any, ByRef hpvSource As Any, ByVal cbCopy As Integer)

Public Declare Function GlobalAlloc Lib "kernel32" (ByVal wFlags As Integer, _
  ByVal dwBytes As Integer) As Integer
 
Public Function GetPrinter(ByRef frmOwner As System.Windows.Forms.Form, _
  Optional ByRef PrintFlags As Short = 0) As Printer
 
Dim PrintDlg As New PRINTDLG_TYPE
Dim DevMode As New DEVMODE_TYPE
Dim DevName As New DEVNAMES_TYPE
 
Dim lpDevMode, lpDevName As Integer
 
...
 
 DevMode.dmDeviceName = Printer.DeviceName
 DevMode.dmSize = Len(DevMode)
 DevMode.dmFields = DM_ORIENTATION Or DM_DUPLEX
 DevMode.dmOrientation = Printer.Orientation
 
PrintDlg.hDevMode = GlobalAlloc(GMEM_MOVEABLE Or GMEM_ZEROINIT, Len(DevMode))
lpDevMode = GlobalLock(PrintDlg.hDevMode)
 
If lpDevMode > 0 Then
 
   CopyMemory(lpDevMode, DevMode, Len(DevMode))
   bReturn = GlobalUnlock(PrintDlg.hDevMode)	
 
End If
 
 
...

Public Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (ByRef _
  hpvDest As Object, ByRef hpvSource As Object, ByVal cbCopy As Integer)

Public Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (ByRef _
  hpvDest As Object, ByRef hpvSource As _beliebigeStruktur, ByVal cbCopy As _
  Integer)

Public Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (ByRef _
  hpvDest As _beliebigeStruktur, ByRef hpvSource As Object, ByVal cbCopy As _
  Integer)