<-- Previous || Up || Next -->

Get Profile Section Sample Sub
Windows API Class

Private Sub GetProfileSectionSample()
    ' Print a sample of the GetProfileSectionSample function.

    Dim avarSection() As Variant
    If GetProfileSection(avarSection, "windows") Then
        Debug.Print IllustrateVariantVector(avarSection)
    Else
        Debug.Print "Function failed."
    End If
End Sub

Copyright 1996-1999 Entisoft
Entisoft Tools is a trademark of Entisoft.