This example uses the Forward event to disable forwarding on an item by setting the return value to False and displays a message that the item may not be forwarded.
Function Item_Forward(ByVal myForwardItem)
MsgBox "You may not forward this message!"
Item_Forward = False
End Function