Visual Basic

Dim result As New RightCategoryModel

Dim queryCmd As String
queryCmd = "SELECT RightCategoryId, Category, Description, IsDeleted FROM tblRightCategories WHERE RightCategoryId = " + CStr(Id)

Dim Db As Database
Dim rs As Recordset
Set Db = DBEngine(0)(0)
Set rs = Db.OpenRecordset(queryCmd)

If rs.RecordCount > 0 Then

    With result
        .Id = rs.Fields("RightCategoryId")
        .Category = rs.Fields("Category")
        .Description = rs.Fields("Description")
        .IsDeleted = rs.Fields("IsDeleted")
    End With

End If

set GetRightCategory = result

Imports System.Printing
Public Class Form1
Private Sub ConnectionStatusToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ConnectionStatusToolStripMenuItem.Click
        If thPQueue.IsOffline = True Then
            MsgBox("The printer is currently offline.", vbInformation + vbOKOnly, "Printer Status")
        ElseIf thPQueue.IsWaiting Then
            MsgBox("The printer is on wait mode.", vbInformation + vbOKOnly, "Printer Status")
        ElseIf thPQueue.IsWarmingUp Then
            MsgBox("The printer is currently warming up. Please wait", vbInformation + vbOKOnly, "Printer Status")
        ElseIf thPQueue.IsNotAvailable Then
            MsgBox("The printer is currently not available.", vbInformation + vbOKOnly, "Printer Status")

        End If
    End Sub
End Class

=======================================
'Print heading line.
With .Font
     .Name = "Arial Unicode MS"
     .Size = 11
     .Underline = False
End With
        

.PrintLine Utf8BytesFromString(TextLine) 'Join$(ParseCSV(TextLine), vbTab)

=============================
Private Declare Function WideCharToMultiByte Lib "kernel32" ( _
    ByVal CodePage As Long, _
    ByVal dwFlags As Long, _
    ByVal lpWideCharStr As Long, _
    ByVal cchWideChar As Long, _
    ByVal lpMultiByteStr As Long, _
    ByVal cbMultiByte As Long, _
    ByVal lpDefaultChar As Long, _
    ByVal lpUsedDefaultChar As Long) As Long
    
' CodePage constant for UTF-8
Private Const CP_UTF8 = 65001

''' Return byte array with VBA "Unicode" string encoded in UTF-8
Public Function Utf8BytesFromString(strInput As String) As Byte()
    Dim nBytes As Long
    Dim abBuffer() As Byte
    ' Get length in bytes *including* terminating null
    nBytes = WideCharToMultiByte(CP_UTF8, 0&, ByVal StrPtr(strInput), -1, vbNull, 0&, 0&, 0&)
    ' We don't want the terminating null in our byte array, so ask for `nBytes-1` bytes
    ReDim abBuffer(nBytes - 2)  ' NB ReDim with one less byte than you need
    nBytes = WideCharToMultiByte(CP_UTF8, 0&, ByVal StrPtr(strInput), -1, ByVal VarPtr(abBuffer(0)), nBytes - 1, 0&, 0&)
    Utf8BytesFromString = abBuffer
End Function

1. How can I find the group that I click/dblclick.
   I tryed with

   Private Sub ListViewCollapsible1_MouseDown(sender As Object, e As MouseEventArgs) Handles ListViewCollapsible1.MouseDown
   Dim lv As ListViewCollapsible = sender
   Dim lvi As ListViewItem = lv.HitTest(e.X, e.Y).Item
   
   If lvi Is Nothing Then
     For n = 0 To (lv.Font.Size * 2)
       Dim ht As ListViewHitTestInfo = lv.HitTest(e.X, e.Y + n)
       If ht.Item IsNot Nothing Then
         Dim g As ListViewGroup = ht.Item.Group
         Dim gs As New ListViewGroupState
   
         Dim sTag As String = g.Tag & " "
         If sTag.Contains("collapsed") Then
           lv.SetGroupState(ListViewGroupState.Normal, ht.Item.Group)
           ht.Item.Group.Tag = "Collapsed"
         Else
           lv.SetGroupState(ListViewGroupState.Collapsed, ht.Item.Group)
           ht.Item.Group.Tag = ""
         End If
         Exit For
       End If
     Next
   End If
   End Sub

   but when the group is collapsed the code find nothing
   How can I add an icon to a group?
   I added an imagelist but groups don't have an imageindex.