Dim nview As Int = 0
For Each id As Int In listaVideos.Keys
Dim datos As Map = listaVideos.Get(id)
Dim videoID As Int = datos.Get("idvideo") ' Cambiar para usar claves del Map
Dim videoDESCRIPCION As String = datos.Get("descripcion")
Dim videoREFERENCIA As String = datos.Get("referencia")
Dim videoPROVEEDOR As String = datos.Get("proveedor")
Dim embedURL As String = $"https://player.vimeo.com/video/${videoREFERENCIA}?autoplay=0&controls=1&loop=0"$
Dim vidWebview As WebView
vidWebview.Initialize($"vidWebview_${nview}"$)
vidWebview.LoadUrl(embedURL)
vidWebview.JavaScriptEnabled = True
svVideosEntrenamiento.Panel.AddView(vidWebview, vidLeft, vidTop, vidWidth, vidHeight)
svVideosEntrenamiento.Panel.GetView(nview).Background = vidBackground
vidTop = vidTop + 60%y
nview = nview + 1
Next