If IsCodeWindowActivated = True Then tmrIDEScrollClick.Enabled = False

Public Function IsCodeWindowActivated() As Boolean
    Dim lngActivatedWindow As Long
    Dim lngtest As Long
    
    lngActivatedWindow = GetActiveWindow
    
    EnumChildWindows lngActivatedWindow, AddressOf EnumChildProc, 0
    
End Function

Private Function EnumChildProc(ByVal hwnd As Long, ByVal lParam As Long) As Long
    'On Error Resume Next
    Dim slength As Long, wintext As String ' title bar text length and buffer
    Dim retval As Long ' return value
    Dim buffer As String
    Static winnum As Integer ' counter keeps track of how many windows have been enumerated

    winnum = winnum + 1 ' one more window enumerated....
    slength = GetWindowTextLength(hwnd) + 1 ' get length of title bar text
    buffer = Space(slength) ' make room in the buffer
    retval = GetWindowText(hwnd, buffer, slength) ' get title bar text
    
    If Left(buffer, slength - 1) = "Cambalinho" Then
        IsCodeWindowActivated = True
    Else
        IsCodeWindowActivated = False
    End If
    EnumChildProc = 1 ' return value of 1 means continue enumeration
End Function

Private Declare Function GetWindowText Lib "user32.dll" Alias _
"GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As _
String, ByVal cch As Long) As Long
Private Declare Function GetWindowTextLength Lib "user32" Alias "GetWindowTextLengthA" (ByVal hwnd As Long) As Long
Private Declare Function GetFocus Lib "user32.dll" () As Long

Public Function IsCodeWindowActivated() As Boolean
    Dim lngActivatedWindow As Long
       
    lngActivatedWindow = GetFocus
    If GetWindowCaption(lngActivatedWindow) Like "*(Code)*" Then
        IsCodeWindowActivated = True
    Else
        IsCodeWindowActivated = False
    End If
End Function

Private Function GetWindowCaption(ByVal Handle As Long) As String
    ' Display the text of the title bar of window Form1
    Dim textlen As Long ' receives length of text of title bar
    Dim titlebar As String ' receives the text of the title bar
    Dim slength As Long ' receives the length of the returned string

    ' Find out how many characters are in the window's title bar
    textlen = GetWindowTextLength(Handle)
    titlebar = Space(textlen + 1) ' make room in the buffer, allowing for the terminating null character
    slength = GetWindowText(Handle, titlebar, textlen + 1) ' read the text of the window
    titlebar = Left(titlebar, slength) ' extract information from the buffer
    GetWindowCaption = titlebar
End Function