Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim msj As Boolean, yol As String
        yol = Environment.GetFolderPath(Environment.SpecialFolder.Desktop)
        Dim dosya As String = yol & "\AYLIK DÖKÜM_" & Format(Date.Now, "dd_mm_yyyy_hh_mm_ss") & ".csv"
        If System.IO.File.Exists(yol) = False Then
            CSVOlarakKaydet(dosya, ListView1)
            msj = evrenmsj("Aylık döküm csv dosyası olarak masa üstüne çıkarıldı", evtamam, "AYLIK DÖKÜM")
        End If
    End Sub

Module Listview_to_csv
    Public Function CSVOlarakKaydet(ByVal filename As String, ByVal lv As ListView) As Boolean
        Dim deg As String
        Try
            Dim os As New IO.StreamWriter(filename, True, System.Text.Encoding.Default)
            For i As Integer = 0 To lv.Columns.Count - 1
                deg = deg & ";" & lv.Columns(i).Text.Replace("""", """""")
            Next
            deg = Right(deg, Len(deg) - 1)
            os.WriteLine(deg, vbNewLine)
            For i As Integer = 0 To lv.Items.Count - 1
                deg = ""
                For j As Integer = 0 To lv.Columns.Count - 1
                    deg = deg & ";" & lv.Items(i).SubItems(j).Text.Replace("""", """""")
                Next
                deg = Right(deg, Len(deg) - 1)
                os.WriteLine(deg, vbNewLine)
            Next
            os.Flush()
            os.Close()
        Catch ex As Exception
            Return False
        End Try
        Return True
    End Function
End Module

For i As Integer = 0 To lv.Columns.Count - 1
                baslik = lv.Columns(i).Text.Replace("""", """""")
                If baslik = "ID" Then baslik = " ID"
                deg = deg & ";" & baslik
            Next
            deg = Right(deg, Len(deg) - 1)
            os.WriteLine(deg, vbNewLine)