Public Sub LoadFavouritesForm(callback_module As Object,callback_function As String)
cMod = callback_module
cFun = callback_function
If frm.IsInitialized = False Then
frm.Initialize("frm", 550, 600)
frm.RootPane.LoadLayout("FavouritesForm")
End If
frm.Show
FillList2
End Sub