Sub Globals
End Sub
Sub App_Start
Form1.Show
FormLib1.New1("Form1",b4pobject(1))
Context1.New1
Context1.AddItem("Yes")
Context1.AddItem("No")
Context1.AddItem("-") 'Adds a separator
Context1.AddItem("Maybe")
FormLib1.AddContextMenu("Form1",Context1.Value)
End Sub
Sub Context1_Click
Select Context1.SelectedText
Case "Yes"
'Do something
Case "No"
'Do something
Case "Maybe"
'Do something
End Select
End Sub