GetWindowText报错

GetWindowText报错求助
我的系统为win7 64位+vs2010

代码如下:

Private Declare Auto Function FindWindow Lib "user32" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
    Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim hWnd As Long
        hWnd = FindWindow("FxMain", vbNullString)
        Dim a As String
        a = Space(255)
        GetWindowText(hWnd, a, 255) '报错
        MessageBox.Show(a)
    End Sub

请教getwindowtext的正确用法 GetWindowText
[解决办法]
这是VB6的定义，Long全部改为Integer