Erro no Timer

[Dakan 0]

Private Sub Timer1_Timer()

Static lHwnd As Long

Dim lCurHwnd As Long

Dim sText As String * 255

'

lCurHwnd = GetForegroundWindow

If lCurHwnd = lHwnd Then Exit Sub

lHwnd = lCurHwnd

If lHwnd <> hwnd Then

janela = Left$(sText, GetWindowText(lHwnd, ByVal sText, 255))

If sText = "Tibia" Then

If Magia Then txtkey = txtkey & Press

End If

End If

 

End Sub

[scorpio 7]

e ?