Run time error 5 - VB

Формулировка задачи:

На моём компьютере работает всё нормально, на другом же ошибка run time error 5 И у меня и у подруги стоит вин7.

                    Листинг программы
                
 
                            
                        
Private Declare Function GetWindow Lib "user32.dll" (ByVal hwnd As Long, ByVal wCmd As Long) As Long
Private Declare Function SendMessage Lib "user32.dll" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Declare Function FindWindow Lib "user32.dll" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
 
Private Const GW_HWNDNEXT = 2:
Private Const GW_CHILD = 5
Private Const WM_LBUTTONDOWN = &H201
Private Const WM_LBUTTONUP = &H202
 
Dim buff As String
Dim hwnds As Long 'ГµГҐГ*Г¤ГҐГ« Г®ГЄГ*Г*
Dim kontrq As Long 'ГµГҐГ*Г¤ГҐГ« Г®ГЄГ*Г*
Dim Knopka As Long 'ГµГҐГ*Г¤ГҐГ« Г®ГЄГ*Г*
Dim Vxod As Long 'ГµГҐГ*Г¤ГҐГ« Г®ГЄГ*Г*
Dim Vixod As Long 'ГµГҐГ*Г¤ГҐГ« Г®ГЄГ*Г*
 
Private Function Hstr(HenTek) As String
    Dim buffz$
    buffz = Space$(50):
    SendMessage HenTek, &HD, 40, ByVal buffz
    buffz = Trim(buffz)
    buffz = Left(buffz, Len(buffz) - 1)
    Hstr = buffz
End Function
 
Private Sub SkanOkon()
    Dim HenTek As Long ' ГЇГ®Г«ГіГ·ГЁГ¬ Г¤ГҐГ±ГЄГ°ГЁГЇГІГ®Г° Г±Г«ГҐГ¤ГіГѕГ№ГҐГЈГ® Г®ГЄГ*Г* Гў Z-order
    HenTek = GetWindow(hwnds, GW_CHILD)  'ГЇГ®Г«ГіГ·Г*ГҐГ¬ Г¤ГҐГ±ГЄГ°ГЁГЇГІГ®Г° Г¤Г®Г·ГҐГ°Г*ГҐГЈГ® Г®ГЄГ*Г*
    Do
        If HenTek <> 0 Then   ' Г*ГҐ ГЁГ±ГЇГ®Г«ГјГ§ГіГ©ГІГҐ ГґГ«Г*Г¦ГЄГЁ, ГҐГ±Г«ГЁ Г*ГЁГЄГ*ГЄГ®ГЈГ® ГІГ*ГЄГ®ГЈГ® Г®ГЄГ*Г* Г*ГҐ Г±ГіГ№ГҐГ±ГІГўГіГҐГІ
            If Len(Hstr(HenTek)) <> 0 Then
                buff = Hstr(HenTek)
                If buff = "ГЋГІГЄГ«ГѕГ·ГЁГІГј" Then
                    Knopka = HenTek
                    Exit Do
                End If
                If buff = "ГЏГ®Г¤ГЄГ«ГѕГ·ГЁГІГј" Then
                    Knopka = HenTek
                    Exit Do
                End If
                buff = Right(buff, 4)
                If buff = "kbps" Then
                    If Vxod = 0 Then
                        Vxod = HenTek
                    Else
                        Vixod = HenTek
                    End If
                End If
            End If
            'ГЏГ°Г®ГўГҐГ°ГЄГ* Г*Г* Г¤ГҐГІГҐГ©-------------------------------------------
            kontrq = GetWindow(HenTek, GW_CHILD) 'ГЇГ®Г«ГіГ·Г*ГҐГ¬ Г¤ГҐГ±ГЄГ°ГЁГЇГІГ®Г° Г¤Г®Г·ГҐГ°Г*ГҐГЈГ® Г®ГЄГ*Г*
            If kontrq <> 0 Then 'Г…Г±Г«ГЁ Г*ГҐГІГі Г¤ГЁГІГї ГЇГ°Г®ГЇГіГ±ГЄГ*ГҐГ¬ ГЅГІГ®ГІ ГёГ*ГЈ
                hwnds = HenTek 'ГЇГҐГ°ГҐГ¤Г*ВёГ¬ ГµГҐГ*Г¤ГҐГ« Гў Г°ГҐГЄГіГ°Г±ГЁГѕ
                Call SkanOkon
            End If
        End If
        HenTek = GetWindow(HenTek, GW_HWNDNEXT) 'ГЇГ®Г«ГіГ·Г*ГҐГ¬ Г¤ГҐГ±ГЄГ°ГЁГЇГІГ®Г° Г±Г«ГҐГ¤ГіГѕГ№ГҐГЈГ® Г®ГЄГ*Г*
    Loop While HenTek <> 0
End Sub
 
Private Sub Command1_Click()
    If Command1.Caption = "ГЏГіГ±ГЄ" Then
        Timer2.Enabled = True
        Command1.Caption = "Г‘ГІГ®ГЇ"
    Else
        Timer2.Enabled = False
        Command1.Caption = "ГЏГіГ±ГЄ"
    End If
End Sub
 
Private Sub Form_Load()
    hwnds = FindWindow(vbNullString, "ГЊГҐГЈГ*Г”Г®Г* Г€Г*ГІГҐГ°Г*ГҐГІ")
    Call SkanOkon
    Timer1.Interval = 200
    Timer2.Interval = 10000
End Sub
 
Private Sub Timer1_Timer()
    Label1.Caption = Hstr(Vixod)
    Label2.Caption = Hstr(Vxod)
    Label3.Caption = Hstr(Knopka)
End Sub
 
Private Sub Timer2_Timer()
    If Hstr(Knopka) = "ГЏГ®Г¤ГЄГ«ГѕГ·ГЁГІГј" Then
        SendMessage Knopka, WM_LBUTTONDOWN, 0, ByVal 327680
        SendMessage Knopka, WM_LBUTTONUP, 0, ByVal 327680
    End If
    
    If Len(Hstr(Vixod)) <> 0 Then
        buff = Left(Hstr(Vixod), 4)
        If buff = "0.00" Then
            SendMessage Knopka, WM_LBUTTONDOWN, 0, ByVal 327680
            SendMessage Knopka, WM_LBUTTONUP, 0, ByVal 327680
        End If
    End If
End Sub

на форме 3 Label кнопка и 2 таймера

Решение задачи: «Run time error 5»

textual
                            Листинг программы 
                        
 
                        
                          
                    
 
Private Function Hstr(HenTek) As String
    Dim buffz$
    buffz = Space$(50):
    SendMessage HenTek, &HD, 40, ByVal buffz
    buffz = Trim(buffz)
    If Len(buffz) > 1 Then buffz = Left(buffz, Len(buffz) - 1)
    Hstr = buffz
End Function