Private Sub Form1_FormClosing(ByVal sender As System.Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles MyBase.FormClosing
TextBox1.Text = System.I0.File.ReadAllText("Highscore.txt")
If Val(TextBox1.Text) < Label6.Text Then
Using Highscore As New System.I0.StreamWriter("Highscore.txt")
Highscore.WriteLine(Label6.Text)
Highscore.Flush()
MsgBox("New Highscore")
End Using
End If
End Sub
Dim strings(My.Settings.List1.Count - 1) As String My.Settings.List1Save.CopyTo(strings, 0) 'And a function to add into it. Such as, ListBox1.Items.AddRange(strings)
dim score as integer = textbox1.value If score <= My.settings.Highscore then 'Nothing else My.settings.highscore = score
