Sub App_Start
rtb.New1("Form1",10,10,210,150)
form1.Show
flib1.New1("Form1",B4PObject(1))
cm1.New1
cm1.AddItem("Yes")
cm1.AddItem("No")
cm1.AddItem("-") 'Adds a separator
cm1.AddItem("Maybe")
flib1.AddContextMenu(rtb.ControlRef,cm1.Value)
End Sub
Sub cm1_Click
Select cm1.SelectedText
Case "Yes"
Msgbox(cm1.SelectedText)
Case "No"
Msgbox(cm1.SelectedText)
Case "Maybe"
Msgbox(cm1.SelectedText)
End Select
End Sub