Sub ToastMessageShow_Custom(Message As Object , LongDuration As Boolean , x As Int , y As Int , BackgroundColor As Int , message_color As Int)
	Dim cs As CSBuilder
	cs.Initialize.Color(message_color).Size(20).Append(Message).PopAll
	Message=cs
	Dim ctxt As JavaObject
	ctxt.InitializeContext
	Dim duration As Int
	If LongDuration Then
		duration = 1
	Else
		duration = 0
	End If
	Dim toast As JavaObject
	toast = toast.InitializeStatic("android.widget.Toast").RunMethod("makeText", Array(ctxt, Message, duration))
	toast.RunMethod("setGravity", Array(Bit.Or(Gravity.TOP, Gravity.LEFT), x, y))
	Dim v As View = toast.RunMethod("getView", Null)
	Dim cd As ColorDrawable
	cd.Initialize(BackgroundColor, 20dip)
	v.Background = cd
	toast.RunMethod("show", Null)
End Sub

ToastMessageShow_Custom("yahoo98.ir" , True , 25%X , 90%Y , Colors.Blue , Colors.White)