Private Sub Form_Load()
    LoadData
End Sub
 
Private Sub Form_Unload(Cancel As Integer)
    SaveData
End Sub
 
Private Sub SaveData()
SaveSetting appname:="Testversion", _
section:="Command2", Key:="PortZahl", setting:=Form5.MSComm1.CommPort
End Sub
 
Private Sub LoadData()
Dim p As Integer
p = GetSetting(appname:="Testversion", _
section:="Command2", Key:="PortZahl", Default:=1)
End Sub