Private Sub MDIForm_Load()
   Me.Left = GetSetting(App.Title, "Settings", "MainLeft", 1000)
   Me.Top = GetSetting(App.Title, "Settings", "MainTop", 1000)
   Me.Width = GetSetting(App.Title, "Settings", "MainWidth", 6500)
   Me.Height = GetSetting(App.Title, "Settings", "MainHeight", 6500)
End Sub

Private Sub MDIForm_Unload(Cancel As Integer)
   If Me.WindowState <> vbMinimized Then
      SaveSetting App.Title, "Settings", "MainLeft", Me.Left
      SaveSetting App.Title, "Settings", "MainTop", Me.Top
      SaveSetting App.Title, "Settings", "MainWidth", Me.Width
      SaveSetting App.Title, "Settings", "MainHeight", Me.Height
   End If
End Sub
什么意思呢 有什么语法吗，麻烦说的仔细些，谢谢！

SaveSetting ,GetSetting函数
好像是读取和设置窗体位置和大小的,这两个函数是自定义的

不是自定义的，VB自带的。

Function GetSetting(AppName As String, Section As String, Key As String, [Default]) As String
    VBA.Interaction 的成员
    从 Windows 注册表的应用程序项中返回一个关键字设置值

噢!
原来是读取注册表的函数,都没用过这个的,学习了

其实也不好说是读取注册表，算是VB自带的一个配置保存解决方案

有點不明白SaveSetting ,GetSetting函数能說說這兩個函數的意思及用法
是否像三斷笛所說的

我不明白他的具体作用 如何体现啊

听说VB有MSDN

一時忘了看看去