Private Sub btn_SaveWeightIN_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_SaveWeightIN.Click
Dim array_item(8) As String
array_item(0) = ListView_save.Items.Count + 1
array_item(1) = txt_add.Text
array_item(2) = txt_search.Text
array_item(3) = txt_search1.Text
array_item(4) = txt_search2.Text
array_item(5) = txt_search3.Text
array_item(7) = txt_date.Text
array_item(8) = txt_time.Text
With Frm_main
array_item(6) = .Label_w2.Text
End With
Dim itm As New ListViewItem(array_item)
ListView_save.Items.Add(itm)
txt_add.Clear()
txt_search.Clear()
txt_search1.Clear()
txt_search2.Clear()
txt_search3.Clear()
End Sub