Visual Basic

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.

I was trying to reset or clear Cookie values, not the entire cookie for which I am setting. So the issue is when I try to process the transaction on Page 1 and go to the Page 2 and come back to Page 1 it is good (for the first time) but however when again I try to make some changes in Page 1 and go to the Page 2 and come back to Page 1 it is showing me the first selected values. The issue is the cookie values are not getting cleared (after the first time) or getting reset for the second transaction (second time). There are two different methods are being called Page_Load and SavePage so Next button will trigger SavePage method and when I try to come back to Page 1 Page_load is getting fired. The code I used in the both methods are. 

Can anyone please help me resetting the cookie values or clearing the cookie values for the first after setting. Thanks.

Page_Load Method

    blnCSRVerify = CBool(If(chkCSRVerify.Checked = True, 1, 0))
    blnCustomerDecline = CBool(If(chkCustomerDecline.Checked = True, 1, 0))
    If CustomerCookie.IsCSRVerify Then
    	chkCSRVerify.Checked = True
    End If
    If CustomerCookie.IsCustomerDecline Then
    	chkCustomerDecline.Checked = True
    End If
    If CustomerCookie.IsSurrenderCredentials <> const_DefaultValForSurrCred Then
    	If CBool(CustomerCookie.IsSurrenderCredentials) OrElse CBool(optlstVerification.YesSelected) Then
    		optlstVerification.SelectedValue = CStr(1)
    	Else
    		optlstVerification.SelectedValue = CStr(0)
    	End If
    End If

SavePage()

    Dim blnCSRVerify As Boolean = False
    Dim blnCustomerDecline As Boolean = False
    blnCSRVerify = CBool(If(chkCSRVerify.Checked = True, 1, 0))
    blnCustomerDecline = CBool(If(chkCustomerDecline.Checked = True, 1, 0))
        
    Dim objContext As HttpContext = HttpContext.Current
        
    Dim objCustomerCookie As HttpCookie = objContext.Request.Cookies("StarsCustomer")
                        
    If blnCSRVerify Then
    	objCustomerCookie.Values.Set("CSR_Verify", CStr(blnCSRVerify))
    End If
    If blnCustomerDecline Then
    	objCustomerCookie.Values.Set("CustomerDecline", CStr(blnCustomerDecline))
    End If
        
    objCustomerCookie.Values.Set("SurrenderCredentials", optlstVerification.SelectedValue.ToString)
      
    objContext.Response.Cookies.Add(objCustomerCookie)

Not enough storage is available to complete this operation.

Public Function Downloadfile(ByVal vstrName As String) As Boolean
On Error GoTo Handler

Dim bytFile() As Byte
Dim objADO As ADODB.Stream

  gstrURL = "https://...URL..../"
  vstrName = "LargeFile.zip"
  gstrProxyIP = "99.999.9.9:80"

  gstrUserID = "userid"
  gstrPassword = "password"

  gstrZipPath = "d:\"
  gstrFile = "LocalSavedFile.zip"

  Set greqPFA = New WinHttp.WinHttpRequest
  greqPFA.SetProxy 2, gstrProxyIP
  greqPFA.SetTimeouts 500000, 500000, 500000, 500000
  greqPFA.Open "GET", gstrURL & vstrName, False
  greqPFA.SetCredentials gstrUserID, gstrPassword, 0
  greqPFA.SetRequestHeader "Content-Type", "text/html; charset=UTF-8"
  greqPFA.Send
  
  bytFile = greqPFA.ResponseBody
  
  Set greqPFA = Nothing
  Set objADO = New ADODB.Stream
  objADO.Type = adTypeBinary
  objADO.Open
  objADO.Write bytFile
  objADO.SaveToFile gstrZipPath & gstrFile, SaveOptionsEnum.adSaveCreateOverWrite
  objADO.Close
  Set objADO = Nothing
  
  Downloadfile = True
  
  Exit Function
Handler:
  Downloadfile = False

End Function

how to add check box in datagrid in VB 6.0