Private Class Parameter
        Public myParameter_1 As String = "Param1"
        Public myParameter_2 As String = "Param2"
        Public myParameter_3 As String = "Param3"
 
        Public Sub SaveSettings()
            SaveSettings(Me, "FileName")
        End Sub
 
        Public Sub LoadSettings()
            Dim dummy As Parameter
            dummy = CType(LoadSettings("FileName"), Parameter)
            Me.myParameter_1 = dummy.myParameter_1 
            Me.myParameter_2 = dummy.myParameter_2 
            Me.myParameter_3 = dummy.myParameter_3 
        End Sub
    End Class