public class HeatmapPointStorage :
    IHeatmapPointSource

Public Class HeatmapPointStorage
    Implements IHeatmapPointSource

using DevExpress.XtraMap;
using System;
using System.Collections.Generic;
using System.Data;
using System.Drawing;
using System.Windows.Forms;

namespace HeatMapSample {
    public partial class Form1 : Form {
        public Form1() {
            InitializeComponent();
        }
        private void Form1_Load(object sender, EventArgs e) {

            ChoroplethColorizer colorizer = new ChoroplethColorizer();
            colorizer.RangeStops.AddRange(new double[] { 0.1, 0.2, 0.7, 1 });
            colorizer.ColorItems.Add(new ColorizerColorItem(Color.FromArgb(50, 128, 255, 0)));
            colorizer.ColorItems.Add(new ColorizerColorItem(Color.FromArgb(255, 255, 255, 0)));
            colorizer.ColorItems.Add(new ColorizerColorItem(Color.FromArgb(255, 234, 72, 58)));
            colorizer.ColorItems.Add(new ColorizerColorItem(Color.FromArgb(255, 162, 36, 25)));
            colorizer.ApproximateColors = true;

            HeatmapPointStorage pointStorage = new HeatmapPointStorage();
            pointStorage.Points.AddRange(new List<HeatmapPoint> {
                new HeatmapPoint(new GeoPoint(23.5309, -0.4211), 1),
                new HeatmapPoint(new GeoPoint(32.3248, 21.0537), 0.5),
                new HeatmapPoint(new GeoPoint(14.1503, 16.3626), 1),
                new HeatmapPoint(new GeoPoint(7.2144, 34.2711), 1),
                new HeatmapPoint(new GeoPoint(-4.5456, 10.1143), 0.5)
            });

            HeatmapProvider provider = new HeatmapProvider();
            provider.PointSource = pointStorage;
            provider.Algorithm = new HeatmapDensityBasedAlgorithm { PointRadius = 50 };
            provider.Colorizer = colorizer;

            ImageLayer heatmapLayer = new ImageLayer();
            heatmapLayer.DataProvider = provider;
            mapControl1.Layers.Add(heatmapLayer);
        }
    }
}

Imports DevExpress.XtraMap
Imports System
Imports System.Collections.Generic
Imports System.Data
Imports System.Drawing
Imports System.Windows.Forms

Namespace HeatMapSample
    Public Partial Class Form1
        Inherits Form

        Public Sub New()
            InitializeComponent()
        End Sub

        Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs)
            Dim colorizer As ChoroplethColorizer = New ChoroplethColorizer()
            colorizer.RangeStops.AddRange(New Double() {0.1, 0.2, 0.7, 1})
            colorizer.ColorItems.Add(New ColorizerColorItem(Color.FromArgb(50, 128, 255, 0)))
            colorizer.ColorItems.Add(New ColorizerColorItem(Color.FromArgb(255, 255, 255, 0)))
            colorizer.ColorItems.Add(New ColorizerColorItem(Color.FromArgb(255, 234, 72, 58)))
            colorizer.ColorItems.Add(New ColorizerColorItem(Color.FromArgb(255, 162, 36, 25)))
            colorizer.ApproximateColors = True
            Dim pointStorage As HeatmapPointStorage = New HeatmapPointStorage()
            pointStorage.Points.AddRange(New List(Of HeatmapPoint) From {
                New HeatmapPoint(New GeoPoint(23.5309, -0.4211), 1),
                New HeatmapPoint(New GeoPoint(32.3248, 21.0537), 0.5),
                New HeatmapPoint(New GeoPoint(14.1503, 16.3626), 1),
                New HeatmapPoint(New GeoPoint(7.2144, 34.2711), 1),
                New HeatmapPoint(New GeoPoint(-4.5456, 10.1143), 0.5)
            })
            Dim provider As HeatmapProvider = New HeatmapProvider()
            provider.PointSource = pointStorage
            provider.Algorithm = New HeatmapDensityBasedAlgorithm With {
                .PointRadius = 50
            }
            provider.Colorizer = colorizer
            Dim heatmapLayer As ImageLayer = New ImageLayer()
            heatmapLayer.DataProvider = provider
            mapControl1.Layers.Add(heatmapLayer)
        End Sub
    End Class
End Namespace