iew1.SelectedItem.Text
      TmpType = Asc(Left(TreeView1.SelectedItem.Key, 1))
      CurArea.AreaType = TmpType - Asc("a")
      CurArea.AreaId = Val(Right(TreeView1.SelectedItem.Key, Len(TreeView1.SelectedItem.Key) - 1))
      '如果是根结点，则不需要再处理
      If CurArea.AreaType = 0 Then
        Exit Sub
      End If
      '决定结点显示的图像
      If CurArea.HaveSon(CurArea.AreaId) = False Then
        TreeView1.SelectedItem.ExpandedImage = 4
        TreeView1.SelectedItem.Image = 4
        TreeView1.SelectedItem.SelectedImage = 5
      End If
      '将地域信息读取到CurArea对象中
      CurArea.GetInfo (CurArea.AreaId)
    End Sub