Dim Blink As SMMBlinkTextView
Blink.Initialize("vxAbort")
Dim b4xBlink As B4XView = Blink
b4xBlink.SetLayoutAnimated(0, vxAbort.Left, vxAbort.Top, vxAbort.Width, vxAbort.Height)
b4xBlink.SetColorAndBorder(0xFF7FFF00, 2dip, clrApp, 6dip) ' the illusive ColorDrawable
b4xBlink.SetTextAlignment("CENTER","CENTER")
b4xBlink.TextColor = vxAbort.TextColor
b4xBlink.TextSize = vxAbort.TextSize
b4xBlink.Text = "A B O R T"
Blink.AddToParent(xPage, vxAbort.Left, vxAbort.Top, vxAbort.Width, vxAbort.Height)
Blink.BringToFront