13518219792
说实话一般不是你这样存储的，一般是用一个字段存储ID号，然后用另一个字段存储上级单位的ID号，然后用递归函数生成TreeView。建议你增加一个字段，然后将编号解析出的上级单位存储在里面。以下是我的一个程序用的递归函数：
创新互联建站是一家以网络技术公司，为中小企业提供网站维护、成都网站建设、成都做网站、网站备案、服务器租用、域名注册、软件开发、成都小程序开发等企业互联网相关业务，是一家有着丰富的互联网运营推广经验的科技公司，有着多年的网站建站经验，致力于帮助中小企业在互联网让打出自已的品牌和口碑，让企业在互联网上打开一个面向全国乃至全球的业务窗口：建站服务热线：18982081108
表名是unit，其中包含了单位名称unit_name,编号unit_id,Unit_upper就是上级单位的id号。
调用方式是 addtree(ds1, TreeView1.Nodes, 0)，其中ds1是一个DataSet，对应单位的表，treeview1是控件名称，0是固定值，与表中根节点部门的Unit_upper一致(这个单位没有上级)。
Public Function addtree(ByVal ds As DataSet, ByVal treename As TreeNodeCollection, ByVal x1 As Integer) As Boolean
Dim dt As DataTable = ds.Tables("unit")
Dim dm As BindingManagerBase = Me.BindingContext(ds, "unit")
Dim dr As DataRow() = dt.Select("unit_upper=" x1.ToString)
Dim dr1 As DataRow
Dim nd As TreeNode
Dim nd1 As TreeNode
Dim x2 As Integer
If dr.GetLength(0) 0 Then
For Each dr1 In dr
nd = treename.Add(dr1("unit_name"))
nd.Tag = (dr1("unit_id"))
x2 = treename.IndexOf(nd)
addtree(ds, treename.Item(x2).Nodes, dr1("unit_id"))
Next
End If
Return True
End Function
这问题有点笼统，软糖来说说把：
图像处理由System.Drawing命名空间负责。
主要是Bitmap类和Graphics类。
Bitmap表示一个位图，可以是BMP,JPG,PNG等文件。
装载位图
Dim 位图 As Bitmap = Bitmap.FromFile("C:\Image1.PNG")
Graphics表示一张画纸，能够进行绘制操作。
它可以被窗体、控件、位图调用CreateGraphics()方法来创建。
然后调用Graphics.Draw开头的一系列函数来绘制图像和图形，Fill开头的填充图形。
创建画纸并绘制位图
Dim 画纸 As Graphics = Me.CreateGraphics()
画纸.DrawImage(位图, 100, 100, 256, 256)
可以将上面三行放到Form1_Load中测试，把路径改一下，
还可以把Me改为能在上面绘图的控件的名称。
更多内容请看MSDN的System.Drawing命名空间。
如满意，请采纳，谢谢。
这里有个C#的网上OA的代码，可以参考一下：
第10章（\C10）
示例描述：本章实现了办公自动化系统，通过该系统，公司不同角色的员工可以通过网路完成日常的办公，包括撰写报告、审阅公文等。另外，系统还将实现一个系统管理员角色，对整个系统进行动态的维护。
\MyOA\Affix 网络办公系统用户上传附件目录
\MyOA\App_Code\BusinessLogicHelper 网络办公系统业务逻辑接口层，包括文件：
\FileHelper.cs 公文接口类
\ValidateUtility.cs 数据验证功能类
\MyOA\App_Code\BusinessLogicLayer 网络办公系统业务逻辑层，包括以下文件：
\Department.cs 部门类
\File.cs 公文类
\FileStatus.cs 公文状态类
\Plan.cs 工作计划类
\Role.cs 用户角色权限类
\User.cs 用户类
\MyOA\App_Code\CommonComponent 网络办公系统通用组件层，包括文件：
\Encrypt.cs 字符串加密类
\EventsLog.cs 系统日志类
\Tree.cs 权限树类
\MyOA\App_Code\DataAccessHelper 网络办公系统数据访问接口层，包括文件：
\SQLString.cs 构造SQL语句的通用类
\GetSafeData.cs 安全获取数据类
\MyOA\App_Code\DataAccessLayer 网络办公数据访问层，包括文件：
\Database.cs 数据访问类
\MyOA\App_Code\UserControls 网络办公用户控件，包括文件：
\LeftTree.ascx 权限树菜单控件
\MyOA\DB\MyOA_CreateTable.sql 网络办公数据库创建脚本
\MyOA\DB\MyOA_InitData.sql 网络办公数据库数据初始化脚本
\MyOA\Images\ 网络办公系统图片文件夹
\MyOA\Styles\Styel.css 网络办公系统样式表文件
\MyOA\Default.aspx 系统首页
\MyOA\FileAdd.aspx 添加公文页面
\MyOA\FileDetail.aspx 查看公文详细信息页面
\MyOA\FileList.aspx 浏览、查询公文页面
\MyOA\Login.aspx 登录页面
\MyOA\LogView.aspx 日志管理页面
\MyOA\PlanList.aspx 工作计划管理页面
\MyOA\RoleManage.aspx 权限管理页面
\MyOA\UserAdd.aspx 添加用户页面
\MyOA\UserList.aspx 浏览、查询用户页面
\MyOA\UserResetPwd.aspx 用户修改密码页面
\MyOA\UserUpdate.aspx 修改用户信息页面
虽然不是VB，不过都是.net，应该能看懂吧。
