Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If TextBox1.Text = "" Then
MsgBox("กรุณากรอกชื่อก่อน")
Return
Else
My.Settings.Namez.Add(TextBox1.Text)
End If
TextBox1.Clear()
Form1.ListBox1.Items.Clear()
For Each Name As String In My.Settings.Namez
Form1.ListBox1.Items.Add(Name)
Next
End Sub