Rick,

Start up a VB6 project

Add a text box and a command button - accept default names

Add this code

---------------------------------------------------------------

Option Explicit

Private Sub Command1_Click()
    SaveSetting "test", "Settings", "text1", Text1.Text
End Sub

Private Sub Form_Load()
    Text1.Move 120, 120, 1500, 275
    Command1.Move 500, 500, 1120, 400
    Me.Width = 2500
    Me.Height = 1500
    Command1.Caption = "Save"
    Text1.Text = GetSetting("test", "Settings", "text1", "")
End Sub


---------------------------------------------------------------

Run the program

Type something in the text box

Click 'Save'

Close the program

Run the program again and the text should returm

Cheers,

Ian

  ----- Original Message ----- 
  From: Peter N. Kipe 
  To: professional vb 
  Sent: Friday, January 31, 2003 4:06 AM
  Subject: [pro_vb] RE: Save settings of ListDriveBox


  Rick,

  I'm here -- sent a message via Messenger, but no response...

  Pete