Sub main
    Dim startPoint As MbePoint
    Dim point As MbePoint, point2 As MbePoint

'   Layerliste laden
    MbeSendCommand "LEVELMANAGER DIALOG TOGGLE "

    MbeSendCommand "LEVELMANAGER LIBRARY IMPORT "

    MbeSendCommand "MDL COMMAND MGDSHOOK,fileList_setDirectoryCmd C:\GI\"

    MbeSendCommand "MDL COMMAND MGDSHOOK,fileList_setFileNameCmd LAG-Norm_Layer_FLP.csv"

    MbeSendCommand "MBE1 CLOSEMODAL OK" 
   

'    MbeSendCommand "LEVELMANAGER LIBRARY CLOSE "
   
   
'    MbeSendCommand "mdl closemodal ok"
   
   
'    MbeSendCommand "LEVELMANAGER close "
    
    '----------------------------------------------------------
    '       Uncomment to close dialog automatically
    '----------------------------------------------------------
    MbeSendCommand "MBE1 CLOSEMODAL OK"

    MbeState.modalDialogByUser = 0    
End Sub