VB实现VC TabControl控件
 
新建一个工程文件Project1，
 
 
在左侧工具栏中点右键
 
在出现的选项中点“Components”，在打开窗口中找到“Controls”选项也中的“Microsoft Tabbed Dialog Control 6.0”，然后点“应用”“确定”退出该页面
 
此时，在工具栏的右下角会出现刚添加的组件SSTab
 
拖动改控件到Form1中，
 
该控件索引是从0开始算的
 
在属性窗口的Tabs 中可以设置控件中选项页的页数，TabsPerRow 可以设置每一行的选项页数
判断选择了那一页可以添加如下代码，用于在单击控件实现页面切换的时候获取选择的当前页
Private Sub SSTab1_Click(PreviousTab As Integer)
Select Case Me.SSTab1.Tab
Case 0
MsgBox "选择了第一页"
Case 1
MsgBox "选择了第二页"
Case 2
MsgBox "选择了第三页"
End Select
End Sub
这样就能实现和VC TabControl空加你一样的效果了，添加别的按钮可以直接拖动到控件上添加相应的代码实现相应的功能。
运行效果如下图：
  ......

VB程序破解
VB 程序简介
　　现在不少程序是用 VB 写的，你通过反汇编或跟踪调试时很容易鉴别某个程序是否为 VB 程序，VB 的 EXE 文件并不是真正的编译可执行文件，它们需其动态链接库才能正常运行，各版本的链接库如下：
VB3 链接库为 vbrun300.dll ；
VB4 链接库为  vb40016.dll ； - 16 位，较少见；
VB4 链接库为  vb40032.dll ； - 32 位；
VB5 链接库为 msvbvm50.dll ；
VB6 链接库为 msvbvm60.dll ；
  VB 程序执行时从本质上讲是解释执行，它们只是调用  VBRUNxxx.DLL 中的函数   ，这样可使程序员不需写大量的程序代码就可编写出较好的图形界面的 windows 程序，不过 VB 是真正的程序吗？
　当然 VB 程序大大方便了程序编写者，但对我们来说， VB 程序向来是谁见谁头痛，一般用 VB 做的程序无论注册码也好， 30 天到期也好，如果用常规方法都很难有被破解的可能。原因很简单， VB 的 exe 是伪代码，程序都在 vbXXX.dll 里面执行，你只能在 vbdll 里面用 sice 打转转，什么都改不成，而且代码质量不高，结构还颇复杂。
　不过你学完这一课，你就不用怕 Vb 程序，在这里我就谈谈两种常用方法，一、用 SOFTICE 对付； ......

珍贵vb函数列表
Variant 变量的内部表示:
_______________________________________________________________
符号常量 值 内部表示 字节数
V_EMPTY 0 Empty
V_NULL 1 Null
V_INTEGER 2 Interger 2
V_LONG 3 Long 4
V_SINGLE 4 Single 4
V_DOUBLE 5 Double 8
V_CURRENCY 6 Currency 8
V_DATE 7 Date 8
V_STRING 8 String
V_OLE 9 OLE Automation Object
V_ERROR 10 Error
V_BOOLEAN 11 Boolean 2
V_VARIANT 12 Variant(仅用于变体数组) 16(22) 
V_OBJECT 13 Object(非OLE自动化对象) 4
V_BYTE 17 Byte 1
V_ARRAY 8192 Array
________________________________________________________________
__vbaVarMove ;变体变量赋值(一般用于数值变量)
lea edx,var1 ;变量1的地址放到edx
lea ecx,var2 ;变量2的地址放到ecx
call __vbaVarMove ;把变量1赋值给变量2
;-------------------------------------------------
__vbaVarCopy ;变体变量赋值(一般用于字符串变量)
lea edx,var1 ;变量1的地址放到edx
lea ecx,var2 ;变量2的地址放到ecx
call __vbaVarMove ;把变量1赋值给变量2
;-------------------------------------------------
__vbaVar ......

今天在公司服务器上看一个老掉牙的asp程序，发现竟然调用了自定义com组件，是vb写的，封装了数据库连接与操作，文档上写这样做是为什么用户到服务器也看不到数据库的用户名与密码，也对啊，这个是财务的服务器，当然不能让我们it随便看了，呵呵！（it忽悠finance，让finance相信it看不到数据库用户名与密码，my god）由于，我们服务器管理人员要服务器，决定要"和谐"这个服务器，只能将这个服务器上的应用全部移到另一个服务器上，于是就要改这个com组件以指定新的db名称，
将com组件源码copy到本机上，改连接，编译dll，再copy到服务器上，regsvr32 注册，一切正常，于是将原db offline，一会儿就有call我了，页面报错，无法访问！打开页面看到错误信息 odbc没有找到数据库，仔细一看，还是原来数据库，心里那个拔凉的，立即google，同时将原db online
原来得将iis重起: iisreset
又加一个com组件方法，
Public Function getData(ByVal sss As Integer) 'as Variant 不能加返回值类型
Dim dd() 'as String 也不能加返回值类型
Dim i As Integer
ReDim dd(sss - 1)
i = 0
Do While i < sss
dd(i) = CStr(i)
i = i + 1
Loop
getData = dd
End Funct ......

今天在公司服务器上看一个老掉牙的asp程序，发现竟然调用了自定义com组件，是vb写的，封装了数据库连接与操作，文档上写这样做是为什么用户到服务器也看不到数据库的用户名与密码，也对啊，这个是财务的服务器，当然不能让我们it随便看了，呵呵！（it忽悠finance，让finance相信it看不到数据库用户名与密码，my god）由于，我们服务器管理人员要服务器，决定要"和谐"这个服务器，只能将这个服务器上的应用全部移到另一个服务器上，于是就要改这个com组件以指定新的db名称，
将com组件源码copy到本机上，改连接，编译dll，再copy到服务器上，regsvr32 注册，一切正常，于是将原db offline，一会儿就有call我了，页面报错，无法访问！打开页面看到错误信息 odbc没有找到数据库，仔细一看，还是原来数据库，心里那个拔凉的，立即google，同时将原db online
原来得将iis重起: iisreset
又加一个com组件方法，
Public Function getData(ByVal sss As Integer) 'as Variant 不能加返回值类型
Dim dd() 'as String 也不能加返回值类型
Dim i As Integer
ReDim dd(sss - 1)
i = 0
Do While i < sss
dd(i) = CStr(i)
i = i + 1
Loop
getData = dd
End Funct ......

Private Sub Command12_Click()
Dim i As Integer
On Error GoTo ABC
ShowPrinterSetup Me
For i = 1 To Adodc1.Recordset.RecordCount
If Picture2.Picture <> LoadPicture("") Then
  
    Printer.PaintPicture Picture2.Picture, 200, Picture1.Top + 1000
Else
    MsgBox "Picture2中没有图片可打印！"
End If
Printer.EndDoc
Adodc1.Recordset.MoveNext
Next i
ABC:
Exit Sub
End Sub ......

VB调用系统的"打印机设置"和"页面设置".
Option Explicit
Const FW_NORMAL = 400
Const DEFAULT_CHARSET = 1
Const OUT_DEFAULT_PRECIS = 0
Const CLIP_DEFAULT_PRECIS = 0
Const DEFAULT_QUALITY = 0
Const DEFAULT_PITCH = 0
Const FF_ROMAN = 16
Const CF_PRINTERFONTS = &H2
Const CF_SCREENFONTS = &H1
Const CF_BOTH = (CF_SCREENFONTS Or CF_PRINTERFONTS)
Const CF_EFFECTS = &H100&
Const CF_FORCEFONTEXIST = &H10000
Const CF_INITTOLOGFONTSTRUCT = &H40&
Const CF_LIMITSIZE = &H2000&
Const REGULAR_FONTTYPE = &H400
Const LF_FACESIZE = 32
Const CCHDEVICENAME = 32
Const CCHFORMNAME = 32
Const GMEM_MOVEABLE = &H2
Const GMEM_ZEROINIT = &H40
Const DM_DUPLEX = &H1000&
Const DM_ORIENTATION = &H1&
Const PD_PRINTSETUP = &H40
Const PD_DISABLEPRINTTOFILE = &H80000

Private Type POINTAPI
x As Long
y As Long
End Type
Private Type RECT
......