Sub PutLabelInParent(init, tface As Typeface, fontsize As Int, textcolor As Int, align As Int, parent As Panel, coordinates As Map, txt) ' You can ignore coordinates and put all four parameters for positioning
Dim lab As Label
lab.Initialize(init)
parent.AddView(lab, coordinates.Get("left"), coordinates.Get("top"), coordinates.Get("width"), coordinates.Get("height"))
lab.Typeface = tface
lab.Text = txt
lab.TextSize = fontsiz
lab.TextColor = textcolor
lab.Gravity = align
End Sub
'Usage
PutLabelInParent("hello", Typeface.DEFAULT, 12, Colors.Black, Gravity.LEFT, panel1, CreateMap("left":10dip, "top":10dip, "width":50dip, "height":30dip), "Hello there")
'You can even access the events of the label created, in the Module from which you're calling PutLabelInParent.
Sub hello_Click
End Sub