Sub btn_Click
Dim btn As Button = Sender
Dim thememode As Int = btn.tag '0 = LightMode, 1 = DarkMode
If audioplayer.IsInitialized = False Then
audioplayer.Initialize(App,Me,Page1.RootPanel,"audioplayer",thememode,False,False)
audioplayer.AP_SetLoopPlay(True)
audioplayer.AP_SetRandomPlay(False)
audioplayer.AP_Songlist.Clear
audioplayer.AP_Songlist.Add(audioplayer.Ap_Createsong(0,File.DirAssets,"CRO - Traum (Official Version).mp3","CRO - Traum",False,Null,Null,""))
audioplayer.AP_Songlist.Add(audioplayer.Ap_Createsong(1,File.DirAssets,"Mahmood - Soldimyfilesshare.mp3","Mahmood - Soldimyfilesshare",False,Null,Null,""))
audioplayer.AP_Songlist.Add(audioplayer.Ap_Createsong(2,File.DirAssets,"rauf faik (official audio).mp3","rauf faik",False,Null,Null,""))
audioplayer.Ap_SetSkipseconds(30)
audioplayer.Ap_ShowSpecialButtons(True)
audioplayer.AP_show
audioplayer.AP_playTrack(0)
'// change view color
'Dim lbl As Label = audioplayer.returnTitleLabel
'lbl.TextColor = Colors.Red
Else
audioplayer.AP_show
End If
End Sub