Dim Firebase As FirebaseDatabase
Dim DatosFirebase As DatabaseReference
Firebase.Initialize("Realtime")
Firebase.PersistenceEnabled = True
Firebase.goOnline
DatosFirebase.Initialize("Reference",Firebase.getReference2("/"),"root")
DatosFirebase.addListenerForSingleValueEvent
DatosFirebase.keepSynced(True)
Sub Reference_onDataChange(snapshot As Object, tag As Object)
If snapshot <> Null Then 'Hay datos
Dim snap As DataSnapshot' = snapshot
snap.Initialize(snapshot)
'Log(snapshot)
Dim m As Map = snap.Value
................. etc
End If 'Hay datos
End Sub