Sub CSDN_UserGModule_Test
   Dim UsrGm
   Dim Id
   Set UsrGm = TCSApp.CreateUserGModule( "MyFirstModule" )
   
   Call UsrGm.ClearProps
   Call UsrGm.ClearScripCommands
   UsrGm.ReadOnlyUserMode = False      
  
   Call UsrGm.AddProp( "ID", "Идентификатор", 3, False, True, 0 )
   Call UsrGm.AddProp( "NAME", "Наименование", 1, True, False, 0 )   
   Call UsrGm.CreateNew
   UsrGm.Properties("ID").AsInteger = 1
   UsrGm.Properties("NAME").AsString = "qwe"
   Call UsrGm.SaveChanges
   Call UsrGm.CreateNew
   UsrGm.Properties("ID").AsInteger = 2
   UsrGm.Properties("NAME").AsString = "asd"
   Call UsrGm.SaveChanges
   
   'UsrGm.ReadOnlyUserMode = True
   Call UsrGm.AddScriptCommand( "Cmd1", "Моя команда", "CSDN_Test1", "Cmd1_Proc" )
   Id = UsrGm.ShowModal( "Мои данные" )    
   Set UsrGM = Nothing
End Sub
Sub Cmd1_Proc( TCSActiveModule )
  Call TCSApp.ShowMessageBox( "Вызов моей функции", "Выделено: " + CStr(TCSActiveModule.SelectedRowsCount) ) 
End Sub