VB Decompiler pro 是一个用来反编译VB编写的程序的工具。VB Decompiler反编译成功后，能够修改VB窗体的属性(例如汉化)，查看函数过程等，是一款VB反编译利器！

    Visual Basic 能编译程序为p－code或native code形式的EXE, DLL或OCX文件。VB Decompiler Pro 能反编译Visual Basic 5.0/6.0的p－code形式的EXE, DLL 或 OCX文件。对native code形式的EXE, DLL或OCX文件，VB Decompiler Pro 也能给出反编译线索

    刚刚冲完凉，突然听音乐的时候，看到标题一直滚动。所以就打开VB…

'VB_纯API 打开保存对话框源码'Call FileDialog(Me, False, "测试", "*.*", "", "", "")  'TRUE 保存  FALSE 打开'DownLoad Code  Option ExplicitPublic Type OPENFILENAME    lStructSize       As Long    hwndOwner         As Long    hInstance         As Long    lpstrFilter       As String    lpstrCustomFilter As String    nMaxCustFilter    As Long    nFilterIndex      As Long    lpstrFile         As String    nMaxFile          As Long    lpstrFileTitle    As String    nMaxFileTitle     As Long    lpstrInitialDir   As String    lpstrTitle        As String    flags             As Long    nFileOffset       As Integer    nFileExtension    As Integer    lpstrDefExt       As String    lCustData         As Long    lpfnHook          As Long    lpTemplateName    As StringEnd TypePublic Type BrowseInfo    hwndOwner         As Long    pIDLRoot          As Long    pszDisplayName    As Long    lpszTitle         As Long    ulFlags           As Long    lpfnCallback      As Long    lParam            As Long    iImage            As LongEnd Type

'模块:Private Declare Function CreateThread Lib "kernel32" (ByVal lpThreadAttributes As Any, ByVal dwStackSize As Long, ByVal lpStartAddress As Long, lpParameter As Any, ByVal dwCreationFlags As Long, lpThreadID As Long) As LongPrivate Declare Function TerminateThread Lib "kernel32" (ByVal hThread As Long, ByVal dwExitCode As Long) As LongPrivate Declare Function SuspendThread Lib "kernel32" (ByVal hThread As Long) As LongPrivate mThreadHandle As Long'示例Function addnumber() As Long    Dim i As Long    For i = 0 To 100000        Form1.Label1.Caption = i    NextEnd Function'创建线程Public Function CreateNewThread(ByVal cFunction As Long) As Long    Dim mhandle As Long    Dim lpThreadID As Long    mhandle = CreateThread(ByVal 0&, ByVal 0&, cFunction, ByVal 0&, 0, lpThreadID)    If mhandle <> 0 Then mThreadHandle = mhandleEnd Function'终止线程Public Function TerminateTh() As Long    SuspendThread mThreadHandle    TerminateThread mThreadHandle, ByVal 0&    TerminateThread lpThreadID, ByVal 0&End Function