Gem MDI childs størrelse og placering

Private Sub MDIForm_Load()
Dim Objekt As Form
    For Each Objekt In Forms
        If TypeOf Objekt Is Form Then
            Objekt.Left = GetSetting(DitProgramsNavn, Objekt.Name, "Left", 0)
            Objekt.Top = GetSetting(DitProgramsNavn, Objekt.Name, "Top", 0)
            Objekt.Width = GetSetting(DitProgramsNavn, Objekt.Name, "Width", 2000)
            Objekt.Height = GetSetting(DitProgramsNavn, Objekt.Name, "Height", 2000)
        End If
    Next Objekt
End Sub

Private Sub MDIForm_Unload(Cancel As Integer)
Dim Objekt As Form
    For Each Objekt In Forms
        If TypeOf Objekt Is Form Then
            SaveSetting DitProgramsNavn, Objekt.Name, "Left", Objekt.Left
            SaveSetting DitProgramsNavn, Objekt.Name, "Top", Objekt.Top
            SaveSetting DitProgramsNavn, Objekt.Name, "Width", Objekt.Width
            SaveSetting DitProgramsNavn, Objekt.Name, "Height", Objekt.Height
        End If
    Next Objekt
End Sub

//Jeg synes folk er blevet for nærrige med UP (Gælder ikke kun dig)!

Det er muligt at jeg ikke give nok point. Men da jeg ikke aner hvad det pointsystem går ud på kiggede jeg bare på hvad de andre gav og tastede 20.

Hvad bruger i dem til?

Kode 

Private Sub MDIForm_Load()
Dim Objekt As Form
    For Each Objekt In Forms
        If TypeOf Objekt Is Form Then
            Objekt.Left = GetSetting(DitProgramsNavn, Objekt.Name, "Left", 0)
            Objekt.Top = GetSetting(DitProgramsNavn, Objekt.Name, "Top", 0)
            Objekt.Width = GetSetting(DitProgramsNavn, Objekt.Name, "Width", 2000)
            Objekt.Height = GetSetting(DitProgramsNavn, Objekt.Name, "Height", 2000)
        End If
    Next Objekt
End Sub

Private Sub MDIForm_Unload(Cancel As Integer)
Dim Objekt As Form
    For Each Objekt In Forms
        If TypeOf Objekt Is Form Then
            SaveSetting DitProgramsNavn, Objekt.Name, "Left", Objekt.Left
            SaveSetting DitProgramsNavn, Objekt.Name, "Top", Objekt.Top
            SaveSetting DitProgramsNavn, Objekt.Name, "Width", Objekt.Width
            SaveSetting DitProgramsNavn, Objekt.Name, "Height", Objekt.Height
        End If
    Next Objekt
End Sub

//Jeg synes folk er blevet for nærrige med UP (Gælder ikke kun dig)!

[Dit kode eksempel giver mig Run-time error 438-Object dosn't support this property or method.

Så vidt jeg kan se, så forsøger koden at gemme indstillingerne i registreringsdatabasen. Hvordan gør man hvis man vil gemme indstillingerne i en .ini fil. ??

Open "C:\\dokumenter\\FILNAVN.ini" For Output Access Write As #1
Print #1, "Indstillinger du vil skrive i filen"
Close #1

// Great programs often follow great brains!

UPs er nogle point som brugerne på udvikleren.dk kan give hinanden som tak for hjælpen.

Fx laver jeg et forumindlæg som handler om at lave et spil der slår Farcry (hehe). Så udlover jeg lige 50 UPs som jeg kan give til den der laver det bedste svar (eller give lidt til alle som svarer).

Så bliver de lidt mere hjælpsomme!