'Store the user name and password
UserName = NameTxt.Text
UserPassword = PasswordTxt.Text
'Validate the user data, then start the connecting sequence
If Game_CheckUserData Then
SendNewChar = False
InitSocket
End If
'Save the game ini (name and password)
Var_Write DataPath & "Game.ini", "INIT", "Name", NameTxt.Text
Var_Write DataPath & "Game.ini", "INIT", "SavePass", -CInt(SavePass)
If Not SavePass Then
Var_Write DataPath & "Game.ini", "INIT", "Password", ""
Else
Var_Write DataPath & "Game.ini", "INIT", "Password", PasswordTxt.Text
End If
'End program
IsUnloading = 1
'Change the value
SavePass = Not SavePass
'Display the image or remove it
If SavePass Then
SavePassImg.Picture = LoadPicture(change 2 pic of login screen)
Else
Set SavePassImg.Picture = Nothing
End If