#Region "打开各种类型的featureclass"
  ''' <summary>
  ''' 打开Access，返回featureclass
  ''' </summary>
  ''' <param name="sDBName">Access文件名(全路径)</param>
  ''' <param name="sFCName">featureclass名称</param>
  ''' <returns>要素类featureclass</returns>
  ''' <remarks></remarks>
  Public Function OpenAccessDatabase(ByVal sDBName As String, ByVal sFCName As String) As IFeatureClass
    Dim pPropset As IPropertySet
    pPropset = New PropertySet
    Dim pFact As IWorkspaceFactory
    Dim pWorkspace As IWorkspace
    pPropset.SetProperty("DATABASE", sDBName)
    pFact = New AccessWorkspaceFactory
    pWorkspace = pFact.Open(pPropset, 0)
    Dim pFeatureWorkspace As IFeatureWorkspace
    pFeatureWorkspace = pWorkspace
    Dim pFeatureClass As IFeatureClass
    pFeatureClass = pFeatureWorkspace.OpenFeatureClass(sFCName)
    Return pFeatureClass
  End Function
  ''' <summary>
  ''' 打开Shapefile，返回featureclass
  ''' </summary>
  ''' <param name="sDBName">shapefile路径</param>
  ''' <param name="sFCName">featureclass名称</param>
  ''' <returns>要素类featureclass</returns>
  ''' <remarks></remarks>
  Public Function OpenShapefile(ByVal sDBName As String, ByVal sFCName As String) As IFeatureClass
    Dim pPropset As IPropertySet
    pPropset = New PropertySet
    Dim pFact As IWorkspaceFactory
    Dim pWorkspace As IWorkspace
    pPropset.SetProperty("DATABASE", sDBName)
    pFact = New ShapefileWorkspaceFactory
    pWorkspace = pFact.Open(pPropset, 0)
    Dim pFeatureWorkspace As IFeatureWorkspace
    pFeatureWorkspace = pWorkspace
    Dim pFeatureClass As IFeatureClass
    pFeatureClass = pFeatureWorkspace.OpenFeatureClass(sFCName)
    Return pFeatureClass
  End Function 

 ''' <summary>
  ''' 打开SDE，返回featureclass
  ''' </summary>
  ''' <param name="sServerName">sde服务名称</param>
  ''' <param name="sFCName">featureclass名称</param>
  ''' <returns>要素类featureclass</returns>
  ''' <remarks></remarks>
  Public Function OpenSDE(ByVal sServerName As String, ByVal sFCName As String) As IFeatureClass
    Dim pPropset As IPropertySet
    pPropset = New PropertySet
    Dim pFact As IWorkspaceFactory
    Dim pWorkspace As IWorkspace
    With pPropset
      .SetProperty("Server", sServerName)
      .SetProperty("Instance", "sdemss")
      .SetProperty("Database", "sde") 'Ignored with ArcSDE for Oracle
      .SetProperty("user", "sde")
      .SetProperty("password", "go")
      .SetProperty("version", "sde.DEFAULT")
    End With
    pFact = New SdeWorkspaceFactory
    pWorkspace = pFact.Open(pPropset, 0)
    Dim pFeatureWorkspace As IFeatureWorkspace
    pFeatureWorkspace = pWorkspace
    Dim pFeatureClass As IFeatureClass
    pFeatureClass = pFeatureWorkspace.OpenFeatureClass(sFCName)
    Return pFeatureClass
  End Function
  ''' <summary>
  ''' 打开Raster，返回dataset
  ''' </summary>
  ''' <param name="sDir">路径名</param>
  ''' <param name="sFile">文件名</param>
  ''' <returns>返回RasterDataset</returns>
  ''' <remarks></remarks>
  Public Function OpenRasterDataset(ByVal sDir As String, ByVal sFile As String) As IRasterDataset
    'Open the raster dataset with the given name.
    'sDir is the directory the file resides
    'sFile is the filename
    Dim pWsFact As IWorkspaceFactory
    Dim pWs As IRasterWorkspace
    Dim pRasterDataset As IRasterDataset
    'Open the workspace
    pWsFact = New RasterWorkspaceFactory
    pWs = pWsFact.OpenFromFile(sDir, 0)
    'Open the raster dataset
    pRasterDataset = pWs.OpenRasterDataset(sFile)
    'Return
    pWsFact = Nothing
    pWs = Nothing
    pRasterDataset = Nothing
    Return pRasterDataset
  End Function
#End Region

    pColor = New RgbColor
    pColor.RGB = RGB(255, 255, 0)
    pCMSymbol = New CharacterMarkerSymbol
    pCMSymbol.Font = pFont
    pCMSymbol.CharacterIndex = 80
    pCMSymbol.Color = pColor
    pCMSymbol.Size = 20
    ''添加的不同类型，其中featureclass中必须有与之对应的字段
    pUniqueRender.AddValue(2, "Type1", pCMSymbol)

    pColor = New RgbColor
    pColor.RGB = RGB(85, 255, 0)
    pCMSymbol = New CharacterMarkerSymbol
    pCMSymbol.Font = pFont
    pCMSymbol.CharacterIndex = 88
    pCMSymbol.Color = pColor
    pCMSymbol.Size = 20
    pUniqueRender.AddValue(3, "Type2", pCMSymbol)

    pGeoFeatureLayer.Renderer = pUniqueRender
    pGeoFeatureLayer.DisplayField = "Type"    '用于唯一值渲染的字段名
  End Sub

　　下面的关于API的中文文档

　　Google Maps API 第2版中文文档 http://www.step1.cn/GoogleApi/map2/documentation.htm

　　Google Maps API 第2版升级指南 http://www.step1.cn/GoogleApi/map2/upgrade.htm

　　Google Maps API 第2版类参考 http://www.step1.cn/GoogleApi/map2/reference.htm

　　另外一个版本的Google Maps API 2中文文档 http://www.zmap.org/doc/maps/documentation/

　　Google Maps API 第1版中文文档 http://www.step1.cn/GoogleAPI/map/documentation.htm

　　下面是关于KML文件的中文文档

　　Google Earth KML中文说明（一） http://gisman.bokee.com/5294713.html

　　Google Earth KML中文说明（二） http://gisman.bokee.com/5294722.html

　　Google Earth KML中文说明（基于Google Earth客户端版本3.0 的KML 版本2.0） http://www.step1.cn/googleapi/map/kml.htm

　　英文资料部分 （主要是Google官方的文档说明，如果觉得中文翻译的有问题，也可以看看这些原始内容。)

　　Google Maps API 官方网 http://www.google.com/apis/maps/

　　Google Maps API 英文文档 http://www.google.com/apis/maps/documentation/

　　Google Maps API 官方Blog http://googlemapsapi.blogspot.com/

　　Google Maps API 论坛 http://groups.google.com/group/Google-Maps-API

　　Google KML 的官方文档 http://earth.google.com/kml/

　　Google API官方网 http://code.google.com/

#Region "平方容差选择最小值得到匹配颜色"

  ''' <summary>
  ''' 平方容差选择最小值得到匹配颜色
  ''' </summary>
  ''' <param name="pColor">所匹配颜色</param>
  ''' <returns></returns>
  ''' <remarks></remarks>
  Private Function GetCloseColor(ByVal pDC As Color,Byavl ColorList As List(of Color)) As Integer
    Dim pACIcolor As Integer = Const_DefaultColorIndex
    Dim pDifs As New List(Of Long)
    Dim pHash As New Hashtable
     For i As Integer = 0 To ColorList.Count - 1
      Dim tCompValue As Long
      tCompValue = ColorValueComp(RGB(pDC.R, pDC.G, pDC.B), RGB(ColorList(i).R, ColorList(i).G, ColorList(i).B))
      pDifs.Add(tCompValue)
      If Not pHash.Contains(tCompValue) Then pHash.Add(tCompValue, i + 1)
    Next
    pDifs.Sort()
    pACIcolor = pHash(pDifs(0))
    Return pACIcolor
  End Function

    ''' <summary>
    ''' 判断两个color在容差范围内是否相似
    ''' </summary>
    ''' <param name="pColorA">颜色A</param>
    ''' <param name="pColorB">颜色B</param>
    ''' <param name="pValve">容差</param>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Private Function ColorValueIsBorder(ByVal pColorA As Long, ByVal pColorB As Long, ByVal pValve As Long) As Boolean
      '在容差pValve的范围内，比较两个颜色是否近似。
      Dim tOutValue As Boolean
      Dim tCompValue As Long
      tCompValue = ColorValueComp(pColorA, pColorB)
      If tCompValue <= pValve Then
        tOutValue = True
      Else
        tOutValue = False
      End If
      Return tOutValue
    End Function
    ''' <summary>
    ''' 通过Value值获得color
    ''' </summary>
    ''' <param name="pColorValue">Value值</param>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Private Function ColorGetByValue(ByVal pColorValue As Long) As Color
      '从一个Long类型的颜色数据获得一个ColorRGB类型。
      Dim tOutColor As Color = Color.FromArgb(255, pColorValue Mod 2 ^ 8, (pColorValue \ 2 ^ 8) Mod 2 ^ 8, (pColorValue \ 2 ^ 16) Mod 2 ^ 8)
      Return tOutColor
    End Function
    ''' <summary>
    ''' 获得两种long类型颜色的容差
    ''' </summary>
    ''' <param name="pColorA">颜色A</param>
    ''' <param name="pColorB">颜色B</param>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Public Function ColorValueComp(ByVal pColorA As Long, ByVal pColorB As Long) As Long
      '获得两个Long类型颜色的色差。
      Dim tOutValue As Long
      Dim tColorA As Color
      Dim tColorB As Color
      tColorA = ColorGetByValue(pColorA)
      tColorB = ColorGetByValue(pColorB)
      tOutValue = ColorRGBComp(tColorA, tColorB)
      Return tOutValue
    End Function
    ''' <summary>
    ''' 获得两种颜色之间的容差
    ''' </summary>
    ''' <param name="pColorA">颜色A</param>
    ''' <param name="pColorB">颜色B</param>
    ''' <returns></returns>
    ''' <remarks>平方容差法</remarks>
    Public Function ColorRGBComp(ByRef pColorA As Color, ByRef pColorB As Color) As Long
      '获得两个ColorRGB的色差。
      Dim tOutValue As Long
      Dim tAbsR As Long
      Dim tAbsG As Long
      Dim tAbsB As Long
      tAbsR = Math.Abs(CLng(pColorA.R) - CLng(pColorB.R))
      tAbsG = Math.Abs(CLng(pColorA.G) - CLng(pColorB.G))
      tAbsB = Math.Abs(CLng(pColorA.B) - CLng(pColorB.B))
      tOutValue = Math.Sqrt(tAbsR ^ 2 + tAbsG ^ 2 + tAbsB ^ 2)
      Return tOutValue
    End Function
 #End Region

Public Class wsSceneDrawLine
  Inherits wsUtilityBaseTool

  Private Declare Function Polygon Lib "gdi32" (ByVal hDC As Integer, ByVal lpPoint As Integer, ByVal nCount As Integer) As Integer
  Private Declare Function SetCapture Lib "USER32" (ByVal hWnd As Integer) As Integer
  Private Declare Function GetCapture Lib "USER32" () As Integer
  Private Declare Function ReleaseCapture Lib "USER32" () As Integer
  Private Declare Function GetCursorPos Lib "USER32" (ByVal lpPoint As PointAPI) As Integer
  Private Declare Function SetCursor Lib "USER32" (ByVal hCursor As Integer) As Integer
  Private Declare Function GetClientRect Lib "USER32" (ByVal hWnd As Integer, ByVal lpRect As rect) As Integer
  Private Declare Function GetWindowRect Lib "USER32" (ByVal hWnd As Integer, ByVal lpRect As rect) As Integer
  Private Declare Function CreatePen Lib "gdi32" (ByVal nPenStyle As Integer, ByVal nWidth As Integer, ByVal crColor As Integer) As Integer
  Private Declare Function GetStockObject Lib "gdi32" (ByVal nIndex As Integer) As Integer
  Private Declare Function GetROP2 Lib "gdi32" (ByVal hDC As Integer) As Integer
  Private Declare Function SetROP2 Lib "gdi32" (ByVal hDC As Integer, ByVal nDrawMode As Integer) As Integer
  Private Declare Function Rectangle Lib "gdi32" (ByVal hDC As Integer, ByVal X1 As Integer, ByVal Y1 As Integer, ByVal X2 As Integer, ByVal Y2 As Integer) As Integer
  Private Declare Function SelectObject Lib "gdi32" (ByVal hDC As Integer, ByVal hObject As Integer) As Integer
  Private Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Integer) As Integer
  Private Declare Function Polyline Lib "gdi32" (ByVal hDC As Integer, ByVal lpPoint() As PointAPI, ByVal nCount As Integer) As Integer
  Private Declare Function CreatePolygonRgn Lib "gdi32" (ByVal lpPoint As Integer, ByVal nCount As Integer, ByVal nPolyFillMode As Integer) As Integer
  Private Structure rect
    Dim Left As Integer
    Dim Top As Integer
    Dim Right As Integer
    Dim Bottom As Integer
  End Structure
  Private Structure PointAPI
    Dim x As Integer
    Dim y As Integer
  End Structure

  Private m_pSceneHookhelper As ISceneHookHelper
  Private m_pGlobeHookhelper As IGlobeHookHelper
  Private m_bInUse As Boolean
  Private m_Pen As Long, m_Brush As Long
  Private m_lDrawMode As Long
  Private m_pUserLine As IPointCollection
  Private m_pGeoLine As IPointCollection
  Private m_MovePoint_Old As IPoint '当前点
  Private m_pScene As IScene
  Private m_pSceneViewer As ISceneViewer
  
  Public Sub New()
    MyBase.New()
    MyBase.Tool = New ControlsScenePanTool
    MyBase.m_Caption = "画线"
    MyBase.m_ToolTip = "画线"
    MyBase.m_Name = "画线"
    MyBase.m_Message = "画线"
    m_pSceneHookHelper = New SceneHookHelper
  End Sub

  Public Overrides Sub OnCreate(ByVal hook As Object)
    m_pSceneHookhelper = New SceneHookHelper
    m_pSceneHookhelper.Hook = hook
    m_pSceneViewer = m_pSceneHookhelper.ActiveViewer
    m_pScene = m_pSceneHookhelper.Scene
    If m_pScene Is Nothing Then
      m_pGlobeHookhelper = New GlobeHookHelper
      m_pGlobeHookhelper.Hook = hook
      m_pSceneViewer = m_pGlobeHookhelper.ActiveViewer
      m_pScene = m_pGlobeHookhelper.Globe
    End If
  End Sub
  Public Overrides ReadOnly Property Enabled() As Boolean
    Get
      If (m_pSceneHookhelper.Scene Is Nothing) Then
        Return False
      Else
        Return True
      End If
    End Get
  End Property

End Class

namespace MyDes
{
    /// <summary>
    /// DES加/解密与MD5加密
    /// </summary>
    public class My_Des
    {
        #region 私有属性

        /// <summary>
        /// MD5加密的字符串
        /// </summary>
        private string md5Str = null;
        /// <summary>
        /// DES加密的字符串
        /// </summary>
        private string encryptStr = null;

        /// <summary>
        /// DES解密的字符串
        /// </summary>
        private string decryptStr = null;

        /// <summary>
        /// DES密匙
        /// </summary>
        private string mydesKey = null;

        /// <summary>
        /// 返回的字符串
        /// </summary>
        private string mydesStr = null;

        /// <summary>
        /// 错误信息
        /// </summary>
        private string messAge = null;

        #endregion

        #region 公共属性

        /// <summary>
        /// MD5加密字符串
        /// </summary>
        public string MD5Str
        {
            get { return md5Str; }
            set { md5Str = value; }
        }
        /// <summary>
        /// DES加密的字符串
        /// </summary>
        public string EncryptStr
        {
            get { return encryptStr; }
            set { encryptStr = value; }
        }

        /// <summary>
        ///DES 解密的字符串
        /// </summary>
        public string DecryptStr
        {
            get { return decryptStr; }
            set { decryptStr = value; }
        }

        /// <summary>
        /// DES密匙
        /// </summary>
        public string MyDesKey
        {
            get { return mydesKey; }
            set { mydesKey = value; }
        }

        /// <summary>
        /// 返回的字符串
        /// </summary>
        public string MyDesStr
        {
            get { return mydesStr; }
            set { mydesStr = value; }
        }
        /// <summary>
        /// 错误信息
        /// </summary>
        public string Message
        {
            get { return messAge; }
            set { messAge = value; }
        }
        #endregion

        #region 公共方法
        /// <summary>
        /// 执行DES加密
        /// </summary>
        public void DesEncrypt()
        {
            try
            {
                byte[] MyStr_E = Encoding.UTF8.GetBytes(this.encryptStr);
                byte[] MyKey_E = Encoding.UTF8.GetBytes(this.mydesKey);

                DESCryptoServiceProvider MyDes_E = new DESCryptoServiceProvider();
                MyDes_E.Key = MyKey_E;
                MyDes_E.IV = MyKey_E;

                MemoryStream MyMem_E = new MemoryStream();

                CryptoStream MyCry_E = new CryptoStream(MyMem_E, MyDes_E.CreateEncryptor(), CryptoStreamMode.Write);
                MyCry_E.Write(MyStr_E, 0, MyStr_E.Length);
                MyCry_E.FlushFinalBlock();
                MyCry_E.Close();

                this.mydesStr = Convert.ToBase64String(MyMem_E.ToArray());
            }
            catch (Exception Error)
            {
                this.messAge = "DES加密出错："+Error.Message;
            }
        }

        /// <summary>
        /// 执行DES解密
        /// </summary>
        public void DesDecrypt()
        {
            try
            {
                byte[] MyStr_D = Convert.FromBase64String(this.decryptStr);
                byte[] MyKey_D = Encoding.UTF8.GetBytes(this.mydesKey);

                DESCryptoServiceProvider MyDes_D = new DESCryptoServiceProvider();
                MyDes_D.Key = MyKey_D;
                MyDes_D.IV = MyKey_D;

                MemoryStream MyMem_D = new MemoryStream();

                CryptoStream MyCry_D = new CryptoStream(MyMem_D, MyDes_D.CreateDecryptor(), CryptoStreamMode.Write);                        
                MyCry_D.Write(MyStr_D, 0, MyStr_D.Length);
                MyCry_D.FlushFinalBlock();
                MyCry_D.Close();

                this.mydesStr = Encoding.UTF8.GetString(MyMem_D.ToArray());
            }
            catch (Exception Error)
            {
                this.messAge ="DES解密出错：" +Error.Message;
            }
        }

        /// <summary>
        /// 执行MD5加密
        /// </summary>
        public void MD5JiaMi()
        {
            MD5CryptoServiceProvider MyMD5 = new MD5CryptoServiceProvider();
            try
            {
                Byte[] MyMD5_Str = MyMD5.ComputeHash(Encoding.UTF8.GetBytes(this.md5Str));
                this.MyDesStr = Encoding.UTF8.GetString(MyMD5_Str);
            }
            catch (Exception Error)
            {
                this.messAge ="MD5加密出错："+ Error.Message;
            }

        }

        #endregion
    }
}

AxSceneControl1_Wheel

然后，在Load时，添加鼠标滚轮滑动句柄

AddHandler Me.MouseWheel, AddressOf AxSceneControl1_Wheel

这样就将鼠标滚轮滑动与AxSceneControl1_Wheel挂接起来了

然后在AxSceneControl1_Wheel中写入操作语句

    Try
      Dim pSceLoc As System.Drawing.Point = AxSceneControl1.PointToScreen(Me.AxSceneControl1.Location)
      Dim Pt As System.Drawing.Point = Me.PointToScreen(e.Location)
      If Pt.X < pSceLoc.X Or Pt.X > pSceLoc.X + AxSceneControl1.Width Or Pt.Y < pSceLoc.Y Or Pt.Y > pSceLoc.Y + AxSceneControl1.Height Then Exit Sub
      Dim scale As Double = 0.2
      If e.Delta < 0 Then scale = -0.2
      Dim pCamera As ICamera = AxSceneControl1.Camera
      Dim pPtObs As IPoint = pCamera.Observer
      Dim pPtTar As IPoint = pCamera.Target
      pPtObs.X += (pPtObs.X - pPtTar.X) * scale
      pPtObs.Y += (pPtObs.Y - pPtTar.Y) * scale
      pPtObs.Z += (pPtObs.Z - pPtTar.Z) * scale
      pCamera.Observer = pPtObs
      AxSceneControl1.SceneGraph.RefreshViewers()
    Catch ex As Exception
    End Try

这样就可以顺利响应鼠标滚轮滑动的放大与缩小了，Map、Globe中也可以如此实现，其它不支持鼠标滚轮事件的控件也可以这样做