Sub SubtitleStyle(TextSize As Int,ForegroundColor As Int,BackgroundColor As Int,WindowColor As Int,ShadowColor As Int)
Dim SubtitleView As JavaObject = SimpleExoPlayerView1
SubtitleView = SubtitleView.RunMethod("getSubtitleView", Null)
Dim TextSize2 As Float = TextSize
SubtitleView.RunMethod("setFixedTextSize", Array(2, TextSize2))
Dim CaptionStyleCompat As JavaObject
If ShadowColor = 0 Then
CaptionStyleCompat.InitializeNewInstance("com.google.android.exoplayer2.text.CaptionStyleCompat", Array ( _
ForegroundColor, BackgroundColor, WindowColor, 0, 0,Typeface.SANS_SERIF))
Else
CaptionStyleCompat.InitializeNewInstance("com.google.android.exoplayer2.text.CaptionStyleCompat", Array ( _
ForegroundColor, BackgroundColor, WindowColor, 2, ShadowColor,Typeface.SANS_SERIF)) 'for shadow
End If
SubtitleView.RunMethod("setStyle", Array(CaptionStyleCompat))
End Sub