I'm trying to do this:
Dim test As Long
lngR = FindWin(vbNullString, "caption at top of internet explorer")
test = SendMessage(lngR, WM_LBUTTONDOWN, 0, -1)
DoEvents
Text = SendMessage(lngR, WM_LBUTTONUP, 0, -1)
DoEvents
Sleep (1500)
test = SendMessage(lngR...