Version=6.90 NumberOfForms=1 Form1=frmMain FormWidth=238 FormHeight=268 IconFile= NumberOfDesktopIncludes=2 DesktopInclude1=Door.dll DesktopInclude2=FormLib.dll NumberOfDeviceIncludes=2 DeviceInclude1=FormLib.dll DeviceInclude2=Door.dll NumberOfObjects=5 Object1=flb1:FormLib Object2=obj2:Object Object3=obj1:Object Object4=ContextMenu1:ContextMenu Object5=obj3:Object NumberOfModules=0 Sub designer addform(frmMain,"Main","",220,220,220)@ addradiobtn(frmmain,RadioBtn1,25,160,85,25,"RadioBtn1",220,220,220,0,0,0,True,True,False,9)@ addtextbox(frmmain,TextBox3,25,90,75,22,"TextBox3",255,255,255,0,0,0,True,True,False,9)@ addtextbox(frmmain,TextBox2,25,55,75,22,"TextBox2",255,255,255,0,0,0,True,True,False,9)@ addtextbox(frmmain,TextBox1,25,20,75,22,"TextBox1",255,255,255,0,0,0,True,True,False,9)@ End Sub @EndOfDesignText@ Sub Globals 'Declare the global variables here. End Sub Sub App_Start Dim a,i frmMain.Show flb1.New1("frmMain",B4PObject(1)) obj1.New1(False) obj2.New1(False) obj3.New1(False) ContextMenu1.New1 ContextMenu1.AddItem("Test1") ContextMenu1.AddItem("Test2") ContextMenu1.AddItem("Test3") obj2.Value=ContextMenu1.Value AddTextBox("frmMain","TextBox4",25,125,75,22,"TextBox4") AddRadioBtn("frmMain","RadioBtn2",25,195,85,25,"RadioBtn2") flb1.AddContextMenu("TextBox1",ContextMenu1.Value) obj1.FromControl("TextBox1") obj1.SetProperty("Tag","TextBox1") flb1.AddContextMenu("TextBox2",ContextMenu1.Value) obj1.FromControl("TextBox2") obj1.SetProperty("Tag","TextBox2") flb1.AddContextMenu("TextBox3",ContextMenu1.Value) obj1.FromControl("TextBox3") obj1.SetProperty("Tag","TextBox3") flb1.AddContextMenu("TextBox4",ContextMenu1.Value) obj1.FromControl("TextBox4") obj1.SetProperty("Tag","TextBox4") flb1.AddContextMenu("RadioBtn1",ContextMenu1.Value) obj1.FromControl("RadioBtn1") obj1.SetProperty("Tag","RadioBtn1") flb1.AddContextMenu("RadioBtn2",ContextMenu1.Value) obj1.FromControl("RadioBtn2") obj1.SetProperty("Tag","RadioBtn2") End Sub Sub ContextMenu1_Click Dim Source obj1.Value=obj2.GetProperty("SourceControl") Source=obj1.GetProperty("Tag") Select Source Case "TextBox1" Select ContextMenu1.SelectedText Case "Test1" Msgbox(Source&" / Test1","Test",cMsgboxOK) Case "Test2" Msgbox(Source&" / Test2","Test",cMsgboxOK) Case "Test3" Msgbox(Source&" / Test3","Test",cMsgboxOK) End Select Case "TextBox2" Select ContextMenu1.SelectedText Case "Test1" Msgbox(Source&" / Test1","Test",cMsgboxOK) Case "Test2" Msgbox(Source&" / Test2","Test",cMsgboxOK) Case "Test3" Msgbox(Source&" / Test3","Test",cMsgboxOK) End Select Case "TextBox3" Select ContextMenu1.SelectedText Case "Test1" Msgbox(Source&" / Test1","Test",cMsgboxOK) Case "Test2" Msgbox(Source&" / Test2","Test",cMsgboxOK) Case "Test3" Msgbox(Source&" / Test3","Test",cMsgboxOK) End Select Case "TextBox4" Select ContextMenu1.SelectedText Case "Test1" Msgbox(Source&" / Test1","Test",cMsgboxOK) Case "Test2" Msgbox(Source&" / Test2","Test",cMsgboxOK) Case "Test3" Msgbox(Source&" / Test3","Test",cMsgboxOK) End Select Case "RadioBtn1" Select ContextMenu1.SelectedText Case "Test1" Msgbox(Source&" / Test1","Test",cMsgboxOK) Case "Test2" Msgbox(Source&" / Test2","Test",cMsgboxOK) Case "Test3" Msgbox(Source&" / Test3","Test",cMsgboxOK) End Select Case "RadioBtn2" Select ContextMenu1.SelectedText Case "Test1" Msgbox(Source&" / Test1","Test",cMsgboxOK) Case "Test2" Msgbox(Source&" / Test2","Test",cMsgboxOK) Case "Test3" Msgbox(Source&" / Test3","Test",cMsgboxOK) End Select End Select End Sub