How to translate into VB Code

Paul Witmond

Hi,

I'm trying to translate an example from the manaul into VB code but I can't get it to work

Who can help me

This is the example (create order from BP screen)

string formType = "139"; // Sales order form type

string menuId = "2050"; // Sales order menu item number



SwissAddonFramework.UI.EventHandling.ItemEvents.FormLoadEventHandler del = null;

del = delegate (SwissAddonFramework.UI.EventHandling.ItemEvents.FormLoad ev)

{

SwissAddonFramework.UI.Components.Form.RemoveHandler(formType, SwissAddonFramework.UI.Components.ModeComponent.FormModes.ALL, del);

ev.Form.Select();

ev.Form.Mode = SwissAddonFramework.UI.Components.ModeComponent.FormModes.ADD;

((SwissAddonFramework.UI.Components.TextEdit)ev.Form.Items["4"]).Value = ((SwissAddonFramework.UI.Components.TextEdit)pVal.Form.Items["5"]).Value;

};



SwissAddonFramework.UI.Components.Form.AddHandler_Load(formType, SwissAddonFramework.UI.Components.ModeComponent.FormModes.ALL, del);

SwissAddonFramework.UI.Components.MenuItem.GetFromUID(menuId).Activate();