I am Wirting a vb code to acces the Admin Console but it cant find the window
of the admin Console in 9.1 does anyone have any ideas

ok so you cant get it to open right?

IT Gets so far and then vb just freeses
im using a timer to send the message to the window but
when it gets to the proceed to ban it cant see it
Dim x As Long, editx As Long, button As Long
Dim console As Long

If (Text38 = "") Then
PalAdmin
Text38 = Trim(AdmnConsole)
Else

DoEvents
Timer8.Enabled = False
console = FindWindow("#32770", Text38)
x = FindWindowEx(console, 0&, "ComboBox", vbNullString)
editx = FindWindowEx(x, 0&, "Edit", vbNullString)
Call SendMessageByString(editx, WM_SETTEXT, 0&, "abc")
button = FindWindowEx(console, 0&, "button", "Ban Selected User")
Call SendMessageLong(button, WM_KEYDOWN, VK_SPACE, 0&)
Call SendMessageLong(button, WM_KEYUP, VK_SPACE, 0&)
DoEvents

PalBan

x = FindWindow("#32770", BanWindow)

button = FindWindowEx(x, 0&, "button", "Yes")
Call SendMessageLong(button, WM_KEYDOWN, VK_SPACE, 0&)
Call SendMessageLong(button, WM_KEYUP, VK_SPACE, 0&)

Text38 = ""


End If

BanWindow is called from From function PalBan for some reason it freeses just b4 the palban funciton is called