Private Sub SaveStartUp()
'Save the Value in the Registry
'SaveSetting AppName As String, Section As String, Key As String, Setting As String
SaveSetting "MyAppName", "StartUp", "DefaultMenu", "StartUpFormName"
End Sub

Private Function GetStartUp()
'Get the Value From the Registry
'GetSetting AppName As String, Section As String, Key As String, Default_Value_If_Setting_Not_Found_Setting As String
DoCmd.OpenForm GetSetting("MyAppName", "StartUp", "DefaultMenu", "DefaultValue")
End Function