Public Sub initPartslist()

If CPearson.IsArrayEmpty(Settings.Array_Type) Then
    Settings.Array_Type = Split("NA,PRT,ASM,SHEET,WELD PRT,WELD ASS,WELD MRG", ",")
End If

If CPearson.IsArrayEmpty(Settings.Array_SpeedSelect) Then
    Settings.Array_SpeedSelect = Split("NA,Fresing,Dreiing,Vannskjæring,Dreiing og Fresing,Fresing og Dreiing,Sveising,Montering", ",")

End If

Public Sub initComboBox() 'rowNumber As Integer
Dim cCont As control
Dim cName As String

'All members in Frame_MOM
For Each cCont In MOM.Frame_MOM.Controls
    If TypeName(cCont) = "ComboBox" Then
    cName = replace(cCont.name, "ComboBox", "Array")
    cCont.List = Settings.cName
    End If
Next cCont