How to add a VisualForce page as Related list in Salesforce

My objective is add a related list in any object record detail page.
For example: I want to add Opportunity list in Product detail page. i.e. Each Product record detail page will display its related Opportunity as well.

How can I accomplish it?
- Develop a visualforce page containing a page block table which displays list of related opportunities.
- Open Product layout. Add the VF page in a new section at detail lay out.


Here is the code for related List of Opportunity:
VF page:

Controller:

public with sharing class CustomRelatedListForProductController {
 
 //Variable declared Globally to hold record of Product and OppLineItem Object
    public Product2 productObj{get;set;}
    public List listofOppLineItem;
    
    /**
    *@purpose : Constructor to fetch current Product Object Record with Standard Controller as Parameter
    **/
 
 public CustomRelatedListForProductController(ApexPages.StandardController controller) {
        this.productObj = (Product2)controller.getRecord();
        listofOppLineItem = new List();
    }
    
    public List getListofOppLineItem(){
     listofOppLineItem = [SELECT id, UnitPrice, OpportunityId,
           PricebookEntry.Product2Id, Opportunity.Account.name,
                 TotalPrice, Quantity, Description, Opportunity.name,
                 Opportunity.CloseDate, ListPrice
              FROM OpportunityLineItem 
              WHERE PricebookEntry.Product2Id =: productObj.ID];
  return listofOppLineItem;
    }
}

How to do any custom process after Lead Convertion

During the Salesforce.com lead conversion process, you can create an account, contact and opportunity for the lead that is being converted. The process is pretty straightforward and Salesforce.com provides some tools for customizing it:

1. Salesforce.com allows you to automatically map standard and custom lead fields to account, contact, and opportunity fields.
2. Apex triggers are fired and universally required custom fields and validation rules are enforced only if validation and triggers for lead convert are enabled in your organization.

However, there may be some instances when a use case requires more complex processing. For instance:

1. Whenever a new contact is created from a lead, a custom object is created that is associated to the contact.
2. Whenever a new account is created, a callout is made to an external webservice.
3. Whenever a new opportunity is created, a number of standard products are added to the opportunity.

Here is a sample trigger that, for simplicity, does not operate for bulk inserts but gives you a good head start. The documentation on the conversion process is located here.

trigger LeadConvert on Lead (after update) {
 
  // no bulk processing; will only run from the UI
  if (Trigger.new.size() == 1) {
 
    if (Trigger.old[0].isConverted == false && Trigger.new[0].isConverted == true) {
 
      // if a new account was created
      if (Trigger.new[0].ConvertedAccountId != null) {
 
        // update the converted account with some text from the lead
        Account a = [Select a.Id, a.Description From Account a Where a.Id = :Trigger.new[0].ConvertedAccountId];
        a.Description = Trigger.new[0].Name;
        update a;
 
      }          
 
      // if a new contact was created
      if (Trigger.new[0].ConvertedContactId != null) {
 
        // update the converted contact with some text from the lead
        Contact c = [Select c.Id, c.Description, c.Name From Contact c Where c.Id = :Trigger.new[0].ConvertedContactId];
        c.Description = Trigger.new[0].Name;
        update c;
 
        // insert a custom object associated with the contact
        MyObject obj = new MyObject();
        obj.Name = c.Name;
        obj.contact__c = Trigger.new[0].ConvertedContactId;
        insert obj;
 
      }
 
      // if a new opportunity was created
      if (Trigger.new[0].ConvertedOpportunityId != null) {
 
        // update the converted opportunity with some text from the lead
        Opportunity opp = [Select o.Id, o.Description from Opportunity o Where o.Id = :Trigger.new[0].ConvertedOpportunityId];
        opp.Description = Trigger.new[0].Name;
        update opp;
 
        // add an opportunity line item
        OpportunityLineItem oli = new OpportunityLineItem();
        oli.OpportunityId = opp.Id;
        oli.Quantity = 1;
        oli.TotalPrice = 100.00;
        oli.PricebookEntryId = [Select p.Id From PricebookEntry p Where CurrencyIsoCode = 'USD' And IsActive = true limit 1].Id;
        insert oli;
 
      }         
 
    }
 
  }     
 
}