For Each element As Map In screenelements.Values
If element.ContainsKey("Type") Then
Select element.Get("Type")
Case "ScreenButton"
Dim sb As ScreenButton
sb.Initialize("ScreenButton",p.x1,p.y1,p.x2,p.y2,element.Get("Nr"))
MainForm.RootPane.AddNode(sb.Base,p.x1,p.y1,p.x2,p.y2)
Case ...
End Select
End If
Next