Loding WMS Layer

MapWinGIS
15

I am trying on vb.net with no success
-> https://wms.cartografia.agenziaentrate.gov.it/inspire/wms/ows01.php
who wants to help me?

    Dim objWmsLayer As New MapWinGIS.WmsLayer
    Dim objExtents As New MapWinGIS.Extents
    objExtents.SetBounds(-1877994.66, 3932281.56, 0, 836715.13, 9440581.95, 0)
    objWmsLayer.BaseUrl = "https://wms.cartografia.agenziaentrate.gov.it/inspire/wms/ows01.php"
    objWmsLayer.BoundingBox = objExtents
    objWmsLayer.DoCaching = False
    objWmsLayer.Epsg = 25832
    objWmsLayer.Format = "image/png"
    objWmsLayer.Layers = "CP.CadastralZoning,acque,strade,CP.CadastralParcel,fabbricati,codice_plla,simbolo_graffa"
    objWmsLayer.Name = "catasto"
    objWmsLayer.Opacity = 63
    objWmsLayer.UseCache = False
    objWmsLayer.TransparentColor = 255
    objWmsLayer.UseTransparentColor = True
    objWmsLayer.Version = tkWmsVersion.wv111
    Dim intLayerHandle As Integer = Me.AxMap2.AddLayer(objWmsLayer, True)
    AxMap2.set_LayerVisible(intLayerHandle, True)
    AxMap2.Extents = objExtents
    AxMap2.Redraw()

Thanks in advance :slight_smile: