'WIthin the LoadAWMSLayer.aspx sample application

'Comment out these lines of code
'Map1.BackgroundMap.WmsMap.Name = "Wms Layer"
'Map1.BackgroundMap.WmsMap.ServerUri = New Uri("http://wmssamples.thinkgeo.com/WmsServer.aspx")
'Map1.BackgroundMap.WmsMap.Parameters.Add("layers", "Countries02,USStates,USMajorCities")


'Repalce them with this code
Dim MyWMSLayer As New WmsImageLayer(New Uri("http://wmssamples.thinkgeo.com/WmsServer.aspx"))
MyWMSLayer.ActiveLayerNames.Add("Countries02")
MyWMSLayer.ActiveLayerNames.Add("USStates")
MyWMSLayer.ActiveLayerNames.Add("USMajorCities")
MyWMSLayer.UpperThreshold = Double.MaxValue
MyWMSLayer.LowerThreshold = 0