Paso 8: El código: guardar
después de que el svedit haga clic en agregar lo siguiente:
Privada Sub SaveToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) maneja SaveToolStripMenuItem.Click
SaveFileDialog1.ShowDialog() ' muestra savedialog
p = SaveFileDialog1.FileName
Dim objReader como nuevo System.IO.StreamWriter(p)
ad()
objReader.Close() ' cierra savedialog
k = True
Si k = True Label2.Visible = True
sort()
End Sub
