Testing

[Megatron]

testing, don't reply

Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
Declare Function GetWindowTextLength Lib "user32" Alias "GetWindowTextLengthA" (ByVal hwnd As Long) As Long
Declare Function EnumWindows Lib "user32.dll" (ByVal lpEnumFunc As Long, ByVal lParam As Long) As Long
 
Public Function EnumWindowsProc(ByVal hwnd As Long, ByVal lParam As Long) As Long
    Dim Length As Long
    Dim sName As String
    Dim Temp As String
    Static iCount As Integer
    
    iCount = iCount + 1
    Length = GetWindowTextLength(hwnd) + 1
    
    If Length > 1 Then
      sName = Space(Length)
      GetWindowText hwnd, sName, Length
      Debug.Print Left(sName, Length - 1)
    End If
    
    EnumWindowsProc = 1
End Function

[Matthew Gates]

Just what the doctor asked for, see that Megatron, always knew John would get to the color coding .

It doesn't have to many bugs.

Except maybe Object.Left / Object.Right.

Object.Left
Object.Right

Wonder if you can stop color coding in the vbcode tag.

Object.[/color]Left
Object.[/color]Right

Object.[color=black]Left
Object.[color=black]Right
 
Object.[color=black]Left[/color]
Object.[color=black]Right[/color]

Eh, oh well .