Code:
Private Sub Form_Load()
txtAccount.Text = GetSetting(App.EXEName, "Settings", "txtAccount", vbNullString)
txtPassWord.Text = GetSetting(App.EXEName, "Settings", "txtPassword", vbNullString)
txtMessage.Text = GetSetting(App.EXEName, "Settings", "txtMessage", vbNullString)
txtGame.Text = GetSetting(App.EXEName, "Settings", "txtGame", vbNullString)
txtCDKey.Text = GetSetting(App.EXEName, "Settings", "txtCDKey", vbNullString)
txtTime.Text = GetSetting(App.EXEName, "Settings", "txtTime", vbNullString)
optEast.Value = GetSetting(App.EXEName, "Settings", "optEast", vbNullString)
optWest.Value = GetSetting(App.EXEName, "Settings", "optWest", vbNullString)
End Sub
----------Form Load Sub ^ ^----------
----------Save Settings Sub Below-------
Private Sub cmdSave_Click()
SaveSetting App.EXEName, "Settings", "txtAccount", txtAccount.Text
SaveSetting App.EXEName, "Settings", "txtPassWord", txtPassWord.Text
SaveSetting App.EXEName, "Settings", "txtCDKey", txtCDKey.Text
SaveSetting App.EXEName, "Settings", "txtTime", txtTime.Text
SaveSetting App.EXEName, "Settings", "txtMessage", txtMessage.Text
SaveSetting App.EXEName, "Settings", "txtGame", txtGame.Text
SaveSetting App.EXEName, "Settings", "optEast", optEast.Value
SaveSetting App.EXEName, "Settings", "optWest", optWest.Value
End Sub