Visual Basic

Static dll_loaded As Boolean
      If Not dll_loaded Then
          Dim dll_handle = LoadLibrary("ZBRPrinter.dll")
          If dll_handle = 0 Then
              MsgBox("LoadLibrary failed")
              Return
          Else
              dll_loaded = True
              MsgBox("LoadLibrary success!")
          End If
      End If
      Dim pName As StringBuilder = New StringBuilder("Zebra P330i USB Card Printer")
      Dim hPrinter As IntPtr = 2
      Dim printerType = 330
      Dim err As Integer = 0

      Dim ret = ZBRGetHandle(hPrinter, pName, printerType, err)
      If err = 61 Then
          MsgBox("Unable to open handle to Zebra printer driver")
      End If

DllImport("ZBRPrinter.dll", SetLastError:=True, CharSet:=CharSet.Auto)> Public Shared Function ZBRGetHandle(ByRef hPrinter As IntPtr, ByVal pName As StringBuilder, ByRef printerType As Integer, ByRef err As Integer) As IntPtr
    End Function

	// Load the Zebra MIFARE SDK library
	HMODULE hModule = LoadLibrary(_T("ZBRGPMF.dll"));
	if (hModule)
	{
		form1.StatusBox->Text = "The DLL has been successfully loaded.";
	}
	else
	{
	//StatusBox->Text = "Error loading Zebra SDK DLL.";
	return FALSE;
	}
	
	// Get the functions
	zsdkGetHandle		= (ZBRGetHandle)GetProcAddress(hModule, "ZBRGetHandle");


HANDLE hPrinter = NULL;
	INT printerType = NULL;
	INT err = 0,
		ret = 0;

	ret = getHandle(&hPrinter, "Zebra P330i USB Card Printer", &printerType, &err);
	ret = getPrinterStatus(&err);

typedef INT (CALLBACK *ZBRGetHandle)(LPHANDLE hPrinter, LPSTR pName, INT* printerType, LPINT err);