189 8069 5689
简单的部分透明比较难做，不过可以换个方式考虑一下。
创新互联坚持“要么做到，要么别承诺”的工作理念，服务领域包括：成都网站建设、成都网站制作、企业官网、英文网站、手机端网站、网站推广等服务，满足客户于互联网时代的桥西网站设计、移动媒体设计的需求，帮助企业找到有效的互联网解决方案。努力成为您成熟可靠的网络建设合作伙伴！
把本问题转换成在VB.NET 2005环境下创建不规则窗体（＝普通窗体 － 透明部分）问题，解决方法就很多了，网上也有许多例子。如 章立民 的书里就详细讲过。
大致思路如下：
1。将backgroundimage设成一个位图（点阵图）
2.将Transparaencykey设成位图的背景颜色（位图最取背景单纯，单纯部分将成为透明部分）
3.如需要可以将formborderstyle设为none，会移除标题栏，并需要手动编写窗体移动、关闭等动作代码，
你找的那个文章也是用其它什么库或者控件做的，或者至少程序里面有其它的专门的皮肤产生模块之类的东西，光凭它那些代码根本不能在VB中实现自定义皮肤。 他的那些代码只是指定了皮肤是什么样而已，具体如何把那些指定应用到窗体上他的代码中根本没有提到。
VB自己做一个不规则形状的皮肤（比如圆角的边框）一般要用到SetWindowRgn这个API。透明度则一般使用SetLayeredWindowAttributes这个API，你可以去查一下。
很久以前搞过，现在懒得搞了，简洁才是王道。
转换表格的时候应该有选项的（光标一般放置在外层表格区域），如图，取消 转换嵌套表格。
当然，对于特别复杂及不规则的表格（粘贴过程中也可能导致表格错乱），用FRONTPAGE调整一下也是不错的主意。
参考文献：OFFICE XP测试
每行的数字个数不同,你说的这是不规则数组,解决方案如下:
Dim b As String = ""
Dim a As Integer()() = New Integer(9)() {}
a(0) = New Integer() {0, 1, 2, 3, 4, 5, 6, 7, 8, 9}
a(1) = New Integer() {0, 3, 4, 5}
a(2) = New Integer() {0, 4, 5, 6, 7}
a(3) = New Integer() {0, 6, 5, 8, 9, 1}
a(4) = New Integer() {0, 2, 5, 1, 7}
a(5) = New Integer() {0, 4, 2, 6, 7, 3}
a(6) = New Integer() {0, 4, 5, 3, 2}
a(7) = New Integer() {0, 4, 1, 6, 2, 8, 5, 3}
a(8) = New Integer() {0, 4, 9, 6, 3, 5, 7}
a(9) = New Integer() {0, 1, 5, 9, 7, 6, 2, 4, 3, 8}
For i As Integer = 0 To a.GetUpperBound(0)
b = "第" i + 1 "行有" a(i).GetUpperBound(0) + 1 "个数" vbCrLf
Next
MessageBox.Show(b)