Stap 8: De Code: opslaan
Nadat de svedit klikt u op de volgende items toevoegen:
Private Sub SaveToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) verwerkt SaveToolStripMenuItem.Click
SaveFileDialog1.ShowDialog() ' toont savedialog
p = SaveFileDialog1.FileName
Dim objReader als nieuwe System.IO.StreamWriter(p)
AD()
objReader.Close() ' savedialog sluit
k = True
Als k = True Then Label2.Visible = True
Sort()
End Sub