دادن سایه به متن

با این تکه کد شما میتوانید به متن نظر شما مثلا یک لیبل سایه بدید و اندازه ی سایه را نیز مشخص کنید که چند دیپ باشه دقت کنید تکه کد اخر صرفا یه مثال هست.
لایبرری های مورد نیاز : reflection

 

Sub SetTextShadow(pView As View, pRadius As Float, pDx As Float, pDy As Float, pColor As Int)
Dim ref As Reflector
ref.Target = pView
ref.RunMethod4("setShadowLayer", Array As Object(pRadius, pDx, pDy, pColor), Array As String("java.lang.float", "java.lang.float", "java.lang.float", "java.lang.int"))
End Sub
SetTextShadow(Label,5,0,1,0xFF1398DB)