你好，在win7系统下能运行VB吗

你好，我现在用的是WIN764位。VB6.0的程序可以在WIN764位运行，只要有VB的支持库就可以。VB6.0的开发环境也可以在WIN732和64位下进行安装，但64位会提示错误，其实不会理它，直接点"运行程序"就行。一般会提示三四次。安装完后可以正常使用。不过，WIN7没有自动刷新桌面，所以开发代码多的程序会卡机，机子不好的话会很卡的。最好调试前保存一份副本，不然可能卡死掉。。

Private Declare Function GetProcAddress Lib "kernel32" _

    (ByVal hModule As Long,     ByVal lpProcName As String) As Long

Private Declare Function GetModuleHandle Lib "kernel32" _

    Alias "GetModuleHandleA"  (ByVal lpModuleName As String) As Long

Private Declare Function GetCurrentProcess Lib "kernel32"     () As Long

Private Declare Function IsWow64Process Lib "kernel32" _

    (ByVal hProc As Long,    bWow64Process As Boolean) As Long

    

Public Function Is64bit() As Boolean

    Dim handle As Long, bolFunc As Boolean

    ' Assume initially that this is not a Wow64 process

    bolFunc = False

    ' Now check to see if IsWow64Process function exists

    handle = GetProcAddress(GetModuleHandle("kernel32"), _

                   "IsWow64Process")

    If handle > 0 Then ' IsWow64Process function exists

        ' Now use the function to determine if 

        ' we are running under Wow64

        IsWow64Process GetCurrentProcess(), bolFunc

    End If

    Is64bit = bolFunc

End Function

---