Dim saveFileDialog1 As New SaveFileDialog()
 
        saveFileDialog1.Filter = "txt files (*.txt)|*.txt|All files (*.*)|*.*"
        saveFileDialog1.FilterIndex = 2
        saveFileDialog1.RestoreDirectory = True
 
        If saveFileDialog1.ShowDialog() = DialogResult.OK Then
            Using sw As New IO.StreamWriter(saveFileDialog1.FileName, False)
                'write each row of the ListView out to a tab-delimited line in a file 
                For i As Integer = 0 To Me.ListView1.Items.Count - 1
                    sw.WriteLine(((ListView1.Items(i).Text & vbTab) + ListView1.Items(i).SubItems(0).ToString() & vbTab) + ListView1.Items(i).SubItems(1).ToString())
                Next
            End Using
        End If
 

If TextUser.Text = "User123" Or TextPass.Text = "Password123" Then
            Form2.Show()
        Else
            MsgBox("Incorrect.")
        End If
 

If TextUser.Text = "Test" And TextPass.Text = "123" Then
            Form2.Show()
            Me.Visible = False
        Else
            MsgBox("Incorrect.")
        End If
 

If Form1.TextPass.Text = "123" Then
            NewPass.Enabled = True
            RNewPass.Enabled = True
            Form1.TextPass.Text = RNewPass.Text
            Form1.TextPass.Text = NewPass.Text
        Else
            NewPass.Enabled = False
            RNewPass.Enabled = False
        End If
 

If TxtUser.Text = "" Or TxtPass.Text = "" Then
            MessageBox.Show("Enter Credential")
            'ElseIf Not TextBox3.Text.Contains("https://") Or TextBox3.Text.Contains("http://") Then
            'MessageBox.Show("URL Invalid")
        ElseIf Not TxtUser.Text = "" Or TxtPass.Text = "" Then
            Dim row1 As String() = {TxtPass.Text, TxtWeb.Text}
            ListView1.Items.Add(TxtUser.Text).SubItems.AddRange(row1)
            Dim Add As New myObject()
            Add.Column1 = TxtUser.Text
            Add.Column2 = TxtPass.Text
            Add.Column3 = TxtWeb.Text
            listViewItems.Add(Add)
        End If
        TxtUser.Clear()
        TxtPass.Clear()
        TxtWeb.Clear()
 

If ListView1.SelectedItems.Count > 0 Then
            ListView1.SelectedItems(0).Text = TxtUser.Text
            ListView1.SelectedItems(0).SubItems(1).Text = TxtPass.Text
            ListView1.SelectedItems(0).SubItems(2).Text = TxtWeb.Text
            Utilities.XMLSaver.SerializeToXML(listViewItems, ListViewItemsXml)
        End If
 
 
If ListView1.SelectedItems.Count > 0 Then
            TxtUser.Text = ListView1.SelectedItems(0).Text
            TxtPass.Text = ListView1.SelectedItems(0).SubItems(1).Text
            TxtWeb.Text = ListView1.SelectedItems(0).SubItems(2).Text
        End If
 

If ListView1.SelectedItems.Count > 0 AndAlso MessageBox.Show("Do you want to delete this item?", "Confirm", MessageBoxButtons.YesNo) = Windows.Forms.DialogResult.Yes Then
            ListView1.SelectedItems(0).Remove()
        End If
 

If TxtWeb.Text.Contains("https://") Or TxtWeb.Text.Contains("http://") Or TxtWeb.Text.Contains("www.") Then
            Process.Start(TxtWeb.Text)
        ElseIf TxtWeb.Text = "" Then
            MessageBox.Show("Invalid URL")
        End If
 

Utilities.XMLSaver.SerializeToXML(listViewItems, ListViewItemsXml)
 

Imports System.Collections.Generic
Imports System.Linq
Imports System.Text
Imports System.IO
Imports System.Xml
Imports System.Xml.Serialization
Namespace Utilities
	Public NotInheritable Class XMLSaver
		Private Sub New()
        End Sub
		Public Shared Sub SerializeToXML(ListviewItems As List(Of myObject), path As String)
			Dim serializer As New XmlSerializer(GetType(List(Of myObject)))
			Dim textWriter As TextWriter = New StreamWriter(path)
			serializer.Serialize(textWriter, ListviewItems)
			textWriter.Close()
		End Sub
		Public Shared Function DeserializeFromXML(path As String) As List(Of myObject)
			Dim deserializer As New XmlSerializer(GetType(List(Of myObject)))
			Dim textReader As TextReader = New StreamReader(path)
			Dim ListviewItems As List(Of myObject)
			ListviewItems = DirectCast(deserializer.Deserialize(textReader), List(Of myObject))
			textReader.Close()
			Return ListviewItems
		End Function
	End Class
End Namespace