Check out adefwebservers tutorials. There is an example of making custome settings there. It's really pretty easy. Just create another control called Settings.ascx. Here is one of mine (edited), it shows getting and setting two settings from a textbox and a radiobuttonlist:

Imports DotNetNuke
Imports System.Web.UI
Imports System.io

Namespace MyCompany.Modules.ModuleName


Partial Class Settings
Inherits Entities.Modules.ModuleSettingsBase

#Region "Base Method Implementations"

Public Overrides Sub LoadSettings()
Try
If (Page.IsPostBack = False) Then 

If CType(TabModuleSettings("SettingName"), String) <> "" Then
Dim str As String = CType(TabModuleSettings("SettingName"), String)
textbox1.text = strr
End If
If CType(TabModuleSettings("SettingName2"), String) <> "" Then
radiobuttonlist.SelectedValue = CType(TabModuleSettings("SettingName2"), String)
End If
End If
Catch exc As Exception 'Module failed to load
ProcessModuleLoadException(Me, exc)
End Try
End Sub

Public Overrides Sub UpdateSettings()
Try
objModules.UpdateTabModuleSetting(TabModuleId, "SettingName", textbox1.text)
objModules.UpdateTabModuleSetting(TabModuleId, "SettingName2", radiobuttonlist.SelectedValue)
' refresh cache
SynchronizeModule()
Catch exc As Exception 'Module failed to load
ProcessModuleLoadException(Me, exc)
End Try
End Sub

#End Region

End Class

End Namespace

I created another Webcontrol and named it Setting.

I added a control to my module and used type: Edit. 

Now my setting control what is a label and textbox, shows up in my module text.  As if it is of type view.

Any ideas?

Dean

Here is code for Setting:

Imports DotNetNuke
Imports System.Web.UI
Imports System.io
Partial Class DesktopModules_USReportsListings_Setting
    Inherits Entities.Modules.ModuleSettingsBase
    Public Overrides Sub LoadSettings()
        Try
            If (Page.IsPostBack = False) Then

                If CType(ModuleSettings("ListingType"), String) <> "" Then
                    txtListingType.Text = CType(ModuleSettings("ListingType"), String)
                Else
                    txtListingType.Text = "CHEM"
                End If
            End If
        Catch exc As Exception 'Module failed to load
            ProcessModuleLoadException(Me, exc)
        End Try
    End Sub

    Public Overrides Sub UpdateSettings()
        Try
            Dim objModules As New DotNetNuke.Entities.Modules.ModuleController
            txtListingType.Text = txtListingType.Text.ToUpper & ""
            If txtListingType.Text <> "FEED" And txtListingType.Text <> "FERT" And txtListingType.Text <> "CHEM" And txtListingType.Text <> "CORP" Then
                txtListingType.Text = "CHEM"
            End If
            objModules.UpdateModuleSetting(ModuleId, "ListingType", txtListingType.Text)
            ' refresh cache
            SynchronizeModule()
        Catch exc As Exception 'Module failed to load
            ProcessModuleLoadException(Me, exc)
        End Try
    End Sub
End Class