Visual Basic

Private Function CalculateRoundOffAmount(ByVal autoCalculateRoundOff As Boolean) As Double
        
        Dim result As Double = 0.0
        
        result += CDbl(Me.TbRoundOff.Text)
        Dim roundOff As Double = 0
        Dim roundedOffTo As Double = 0
        If autoCalculateRoundOff = True Then
            roundOff = Math.Ceiling(result) - result
        Else
            roundOff = Me.TbRoundOff.Text
        End If
        roundedOffTo = result + roundOff
        Me.TbRoundOff.Text = roundOff
        Me.TbInvoiceValue.Text = roundedOffTo
        Return roundedOffTo
    End Function

Private Sub Wait1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ProfileSetup.Show()
        ProfileSetup.Visible = False
    End Sub

Private Sub ProfileSetup_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Visible = False
        TextBox1.ReadOnly = True
        TextBox1.Enabled = False
        TextBox2.ReadOnly = True
        TextBox2.Enabled = False
        TextBox3.ReadOnly = True
        TextBox3.Enabled = False
        TextBox4.ReadOnly = True
        TextBox4.Enabled = False
        TabControl1.Hide()
        GroupBox1.Hide()
        TabControl1.SendToBack()
        GroupBox1.SendToBack()
        CheckForIllegalCrossThreadCalls = False
        BackgroundWorker1.RunWorkerAsync()
    End Sub

    Private Sub BackgroundWorker1_DoWork(ByVal sender As System.Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork
    TextBox1.Text = UsersTableAdapter1.LoggedInUser(True)
    TextBox2.Text = UsersTableAdapter1.PasswordGet(TextBox1.Text)
    TextBox3.Text = UsersTableAdapter1.EmailGet(TextBox1.Text)
    Variables.avatar = PictureBox1.BackgroundImage
    original = PictureBox1.BackgroundImage
    previous = PictureBox202
    PictureBox202.Hide()
    TextBox4.Text = UsersTableAdapter1.RankGet(UsersTableAdapter1.LoggedInUser(True))
    End Sub

    Private Sub BackgroundWorker1_RunWorkerCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles BackgroundWorker1.RunWorkerCompleted
        Wait1.Close()
        Me.Visible = True
    End Sub

Public Sub WaitForUsbRet()
Dim EventObject As Long
Dim Result As Long
Dim res2 As Integer
Dim Security As SECURITY_ATTRIBUTES
Dim RecBuffer(65) As Byte
Dim rdNum As Long
Dim i As Integer
Dim res3 As Long
res2 = 1

Security.lpSecurityDescriptor = 0
Security.bInheritHandle = CInt(True)
Security.nLength = Len(Security)

EventObject = CreateEvent(Security, CInt(True), CInt(False), "rdUsb")
HIDOverlapped.Offset = 0
HIDOverlapped.OffsetHigh = 0
HIDOverlapped.hEvent = EventObject

Do
Form1.ShpStatus.BackColor = Form1.ShpStatus.BackColor + 1
DoEvents
RecBuffer(4) = 0
RecBuffer(5) = 0
Result = ReadFile _
(HIDHandle, _
RecBuffer(0), _
CLng(Capabilities.InputReportByteLength), _
rdNum, _
HIDOverlapped)

Form1.lstBoxRec.AddItem "Res=" & Result & " rdnum=" & rdNum & " hid=" & HIDOverlapped.Internal

Result = WaitForSingleObject(EventObject, 500)

Form1.lstBoxRec.AddItem "Res2=" & Result & " err=" & GetLastError & " hid=" & HIDOverlapped.Internal

Select Case Result
Case WAIT_TIMEOUT
' Timeout error.
Form1.lstBoxRec.AddItem "Out"
CancelIo (ReadHandle)
Form1.devStatus = RET_USBDEVREVTOOLOW
DoEvents
Case WAIT_FAILED Or WAIT_ABANDONED
Form1.lstBoxRec.AddItem "FAIL"
DoEvents
Case WAIT_OBJECT_0
' ' Success
' ' Use the report data.
rdNum = (RecBuffer(4) + 5)
If rdNum > 65 Then rdNum = 65
If (rdNum > 5) Then
For i = 1 To rdNum
Form1.putInCircBuff (RecBuffer(i))
Next i
End If
Form1.lstBoxRec.ListIndex = Form1.lstBoxRec.ListCount - 1
If (rdNum > 0) Then Form1.tmrCommHndl.Enabled = True
DoEvents
Case Else
Form1.lstBoxRec.AddItem "Else"
CancelIo (ReadHandle)
Form1.devStatus = RET_USBDEVREVTOOLOW
End Select
res3 = ResetEvent(EventObject)
Loop Until res2 = 0
End Sub