code575a.txt

VB大全（精华版）源代码

Public Sub Main()
  Dim MySettings As Variant

  SaveSetting "MyApp","Startup", "Top", 75
  SaveSetting "MyApp","Startup", "Left", 50
  Debug.Print GetSetting(appname := "MyApp", section := "Startup", _
      key := "Left", default := "25")
  DeleteSetting "MyApp", "Startup"
End Sub