'For Using Set Opacity -ใช้สำหรับ การตั้งค่าความทึบ
Sub SetOpacity(alpha As float, aView As View)
Dim aReflector As Reflector
aReflector.Target = aView
aReflector.RunMethod2("setAlpha", alpha, "java.lang.float")
End Sub
'For using Set Focus -ใช้สำหรับ การโฟกัสเคอร์เซอร์
Sub SetFocus(alpha As boolean, aView As View)
Dim obj1 As Reflector
obj1.Target = aView
obj1.RunMethod2("setFocusable", alpha, "java.lang.boolean")
End Sub
....
....
....