Sub EditText_EnterPressed
Dim pnl14 As Panel
pnl14.Initialize(pnl14)
Dim cld As ColorDrawable
cld.Initialize ( Colors.RGB( 173, 216, 230) , 5dip )
pnl14.Background = cld
Activity.AddView(pnl14, 80dip, 90dip, 170dip, 180dip)
lblnormal.Initialize("lblnormal")
lblnormal.Text = "Normal" & "√"
lblnormal.TextColor = Colors.Black
lblnormal.TextSize = 10
Activity.AddView(pnl14, 80dip, 100dip, 100dip, 40dip)
lblabnormal.Initialize("lblabnormal")
lblabnormal.Text = "abnormal" & "√"
lblabnormal.TextColor = Colors.Black
lblabnormal.TextSize = 10
Activity.AddView(pnl14, 80dip, 130dip, 100dip, 40dip)
lblna.Initialize("lblna")
lblna.Text = "N/A" & "√"
lblna.TextColor = Colors.Black
lblna.TextSize = 10
Activity.AddView(pnl14, 80dip, 160dip, 100dip, 40dip)
End Sub