Private Sub MSG(TT As String)
Dim p As Panel
p.Initialize("")
p.Color = Colors.White
Dim lbl As Label
lbl.Initialize("lbl")
lbl.TextAlignment = lbl.ALIGNMENT_LEFT
lbl.Text = TT
lbl.Font = Font.CreateNew(16)
lbl.TextColor = Colors.Blue
p.AddView(lbl, 5dip, 2dip, 700dip, 25dip - 4dip) 'view #0
clvMsg.Add(p, 25dip, Null)
End Sub