int OpenSmena(char* portname, short number, char* name,char* pwd)

Int PrintDoc(char* portname,char* spwd, int ntype, char* sdate, char* stime, _
                 char* number, char* checknumb, char* usluga, char* kodotd, _
                  double nsum, double finalsum, double paidsum, double sumchange)

int PrintReport(char* portname, short nreptype, short nntapetype, char* pwd)

Option Explicit

Private Sub ARCComm1_DataIn()
    Dim ans As String
    ans = ARCComm1.GetData
    If chkHEX.Value <>  0  Then
        ans = ReturnHEX(ans)
    End If
    txtRec.Text = txtRec.Text & ans & vbCrLf
    txtRec.SelStart = Len(txtRec)
End Sub

Private Sub Cmd_Click(Index As Integer)
On Error GoTo handelcmd
    Select Case Index
        Case  0  'Open Com Port
            ARCComm1.ComPort = cmbPort.List(cmbPort.ListIndex)
            ARCComm1.ComSettings = txtComSet.Text
            If ARCComm1.InitCom() Then
                SetControllsLockStatus "CLOSE", False
                SetControllsLockStatus "OPEN", True
            End If
        Case  1  'Close Com Port
            ARCComm1.FinCom
            SetControllsLockStatus "CLOSE", True
            SetControllsLockStatus "OPEN", False
        Case  2  'Send to com port
            If Not ARCComm1.WriteData(txtSend) Then
                MsgBox "Error sending data!"
            End If
            txtSend.SetFocus
    End Select
    Exit Sub
handelcmd:
    MsgBox Err.Description,  16 , "Error#" & Err.Number
    Exit Sub
End Sub

Private Sub Form_Load()
On Error GoTo handelload
    cmbPort.AddItem "COM1:"
    cmbPort.AddItem "COM2:"
    cmbPort.AddItem "COM3:"
    cmbPort.AddItem "COM4:"
    cmbPort.ListIndex =  0 
    Exit Sub
handelload:
    MsgBox Err.Description,  16 , "Error#" & Err.Number
    Exit Sub
End Sub

Sub SetControllsLockStatus(TheTAGValue As String, TheLockStatus As Boolean)
On Error GoTo handelSetControllsLockStatus
    Dim xs As Control
    For Each xs In Me
        If xs.Tag = TheTAGValue Then
            xs.Enabled = TheLockStatus
        End If
    Next
    Exit Sub
handelSetControllsLockStatus:
    MsgBox Err.Description,  16 , "Error#" & Err.Number
    Exit Sub
End Sub

Function ReturnHEX(TheString As String) As String
    Dim i As Integer, RtnStr As String
    RtnStr = ""
    For i =  1  To Len(TheString)
        RtnStr = RtnStr & Right$("00" & Hex$(Asc(Mid$(TheString, i,  1 ))),  2 ) & " "
    Next
    ReturnHEX = RtnStr
End Function