Visual Basic

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

Hello,

I use this code to try to sort my desktop icons, but noway...

'Declaration
'-------------
'API declarations
Public Declare Function SendMessage Lib "user32" _
   Alias "SendMessageA" _
  (ByVal hwnd As Long, _
   ByVal wMsg As Long, _
   ByVal wParam As Long, _
   LPARAM As Any) As Long

Public Const LVS_SORTASCENDING = &H10   

Public Const LVM_SORTITEMS = (LVM_FIRST + 48)

'and others declarations...


'code in sub procedure
'---------------------

Public Sub sortIconsByNameAsc()

   h = GetDesktopWindow() 'hwnd for desktop

   Call SendMessage(h, LVM_SORTITEMS, LVS_SORTASCENDING, h)

end sub