RegistrySet

PROC_ERR:
  MsgBox "Error: " & Err.Number & ". " & Err.Description, , _
    "RegistrySetKeyValue"
  Resume PROC_EXIT
    
End Sub

' In the Declarations section of the form declare the variable
Private mFormPos As CFormPos

Private Sub Form_Load()

' Instantiate variable
  Set mFormPos = New CFormPos

' Assign current form to the Form property of the object
  Set mFormPos.Form = Me

' Assign alternative value to the AppName property
  mFormPos.RegistryPath = "SOFTWARE\FMS\Test CFormPos"
  mFormPos.SubKey = "Form Positions"
  
  ' restore to previously-saved locations. If not previously
  ' saved, then simply center the form
  If Not mFormPos.RestoreForm Then
    mFormPos.CenterForm
  End If

End Sub

Private Sub Form_Unload(Cancel As Integer)
  
  ' Save current position for next time
  mFormPos.SaveForm

End Sub
'---====[ pAssed by vbTips32 codeBook ]====---
 EXAMPLE
Example code for the CFormPos class

To try this example, do the following:
 1. Create a new form (be sure to leave the form's StartupPosition
    property set to 3 - Windows Default
 2. Paste all the code from this example to the new form's module
 3. Run the form. If the form's previous position was saved,
    it is restored on open. When the form is closed its position
    is saved.

Private Sub RegistrySetKeyValue( _
eRootKey As EnumFormPosRegistryRootKeys, _
strKeyName As String, _
strValueName As String, _
strData As String)
' Comments : This procedure sets a key value

' Parameters: eRootKey - The root key

' strKeyName - The name of the key

' strValueName - The name of the value

' strData - The data to store in the value

' Returns : Nothing

'

Dim lngRetVal As Long
Dim lngHKey As Long

On Error GoTo PROC_ERR

' Open the specified key, if it does not exist then create it

lngRetVal = RegCreateKeyEx(eRootKey, strKeyName, 0&, vbNullString, _
mcregOptionNonVolatile, KEY_WRITE, 0&, lngHKey, 0&)

strData = strData & vbNullChar
lngRetVal = RegSetValueExString(lngHKey, strValueName, 0&, REG_SZ, _
strData, Len(strData))

RegCloseKey (lngHKey)

PROC_EXIT:
Exit Sub

PROC_ERR:
MsgBox "Error: " & Err.Number & ". " & Err.Description, , _
"RegistrySetKeyValue"
Resume PROC_EXIT

End Sub

' In the Declarations section of the form declare the variable

Private mFormPos As CFormPos

Private Sub Form_Load()

' Instantiate variable

Set mFormPos = New CFormPos

' Assign current form to the Form property of the object

Set mFormPos.Form = Me

' Assign alternative value to the AppName property

mFormPos.RegistryPath = "SOFTWARE\FMS\Test CFormPos"
mFormPos.SubKey = "Form Positions"

' restore to previously-saved locations. If not previously

' saved, then simply center the form

If Not mFormPos.RestoreForm Then
mFormPos.CenterForm
End If

End Sub

Private Sub Form_Unload(Cancel As Integer)

' Save current position for next time

mFormPos.SaveForm

End Sub
'---====[ pAssed by vbTips32 codeBook ]====---

EXAMPLE
Example code for the CFormPos class

To try this example, do the following:
1. Create a new form (be sure to leave the form's StartupPosition
property set to 3 - Windows Default
2. Paste all the code from this example to the new form's module
3. Run the form. If the form's previous position was saved,
it is restored on open. When the form is closed its position
is saved.