Visual Basic

Dim SerialPort As SerialPort = New SerialPort(COMPort, 9600, Parity.None, 8, StopBits.One)
Dim ACK(1) As Byte
Public ENQ() As Byte = {&H5}
Public BEGIN() As Byte = {&H54}
Public DataBuffer(4096) As Byte
Dim SerialPortOK As Boolean = False

            SerialPort.Open()
            SerialPort.Write(ENQ, 0, ENQ.Length)
            Threading.Thread.Sleep(2000)
            If SerialPort.BytesToRead Then
                SerialPort.Read(ACK, 0, 1)
                If ACK(0) = &H6 Then
                    SerialPortOK = True
                Else
                    MsgBox("The instrument returned an unexpected result.  Please check the instrument and try again.", MsgBoxStyle.Exclamation + MsgBoxStyle.OkOnly, "Invalid Response")
                    SerialPort.Close()
                End If
            Else
                MsgBox("The instrument did not respond.  Please check that it is connected and set to download mode.", MsgBoxStyle.Exclamation + MsgBoxStyle.OkOnly, "No Response")
                SerialPort.Close()
            End If

            If SerialPortOK Then
                Download = New clsDownloadInstrument(FolderName, txtDownload.Text.Trim, InstrumentNumber, SerialPort)
                Me.Enabled = False
                Download.BeginDownload()
            End If

Private Sub BinSheetForm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        BsCountIdLabel.Text = iCountId.ToString
        Dim Conn As New SqlConnection(CntString)
        conn.Open()
        adapter = New SqlDataAdapter("select * from zz_ST_Binsheets", Conn)
        adapter.FillSchema(dtset, SchemaType.Source, "zz_ST_Binsheets")
        adapter.Fill(dtset, "zz_ST_Binsheets")
        Conn.Close()
        bind.DataSource = dtset
        bind.DataMember = "zz_ST_Binsheets"
    End Sub

Private Sub FillBinDataGrid()
        With Me.BsDataGridView
            .DataSource = bind
            .EditMode = DataGridViewEditMode.EditOnEnter
        End With
    End Sub

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);