Sub btnfloat_CheckedChange(Checked As Boolean)
If List0.IsInitialized And List0.Size >= 1 Then
If Checked == True Then
FloatingStandOut.Start(Me)
'p.SetScreenOrientation(-1)
Else
FloatingStandOut.Stop
Activity.Finish
'p.SetScreenOrientation(1)
End If
Else
btnfloat.Checked = False
ToastMessageShow("Subtitle must be selected first",True)
End If
End Sub