Private iFlow As Integer, iTempEcho As Boolean Sub LoadPropertySettings() Dim i As Integer, Settings As String, Offset As Integer ' Load Port Settings For i = 1 To 16 cboPort.AddItem "Com" Trim$(Str$(i)) Next i ' Load Speed Settings cboSpeed.AddItem "110" cboSpeed.AddItem ...