### CheckBox Right

`Subroutine which creates a CheckBox with the Text Left and the CheckBox right.
Example
CheckBoxRight(MainForm, Null, "CheckBox1", "Completed ", 10, 50)
' Create a CheckBox with the text left and checkbox right: Text [X]
' Requires the JavaObject library
`Sub CheckBoxRight(Owner As Form, Parent As Node, EventName As String, Text As String, Left As Double, Top As Double)
Dim lbl As Label
lbl.Initialize("")
lbl.Text = Text
Dim joLbl As JavaObject = lbl
Dim cb As CheckBox
cb.Initialize(EventName)
joLbl.RunMethod("setGraphic", Array(cb))
joLbl.RunMethod("setContentDisplay", Array("RIGHT"))
Owner.RootPane.AddNode(joLbl, Left, Top, -1,-1)
End Sub`
`

Changed: , Category: CheckBox, File: T6C171M1248.htm, ID: 1248