Using registry:
VB Code:
  1. dim opt_Username as string

  2.  
  3. opt_Username="Eddie"

  4. SaveSetting  "MyApp", "UserInfo", "Username", opt_Username

  5. opt_UserName=GetSetting("MyApp","UserInfo","Username","JohnDoe")

  6. msgbox "Now check your registry!"