ADD TO LISTVIEW

 // ADD TO LISTVIEW

Dim CsLst As New ListViewItem(Me.txtStkId.Text)
        CsLst.SubItems.Add(Me.CmbItmNm.Text)
        CsLst.SubItems.Add(Me.txtQuantity.Text)
        CsLst.SubItems.Add(Me.CmbSlNo.Text)
        CsLst.SubItems.Add(Me.txtRmk.Text)
        CsLst.SubItems.Add(Me.txtItmId.Text)
        Me.LstStockOut.Items.Add(CsLst)
        Call clear_fields(GroupBox1)

// UPDATE

 If Val(Me.txtItmId.Text) = 0 Then Exit Sub

        Me.LstStockOut.FocusedItem.SubItems(0).Text = Me.txtStkId.Text
        Me.LstStockOut.FocusedItem.SubItems(1).Text = Me.CmbItmNm.Text
        Me.LstStockOut.FocusedItem.SubItems(2).Text = Me.txtQuantity.Text
        Me.LstStockOut.FocusedItem.SubItems(3).Text = Me.CmbSlNo.Text
        Me.LstStockOut.FocusedItem.SubItems(4).Text = Me.txtRmk.Text
        Me.LstStockOut.FocusedItem.SubItems(5).Text = Me.txtItmId.Text
        Me.CmbItmNm.Select()

// REFRESH

 Call clear_fields(GroupBox1)

//REMOVE

 If Val(txtCustId.Text) = 0 Then Exit Sub
        Me.LstStockOut.FocusedItem.Remove()
        Call clear_fields(GroupBox1)