error help

[ice_531]

can someone plz tell me why i get a type mismatch error in this piece of my code..

Private Sub Command1_Click()
'Get the room's handle
tWnd = FindWindow(Text2, vbNullString)
'Get the room textboxe handle
bWnd = FindWindowEx(tWnd, ByVal 0&, "Edit", vbNullString)
SendMessage bWnd, WM_SETTEXT, ByVal "<pbr>P<pbr>a<pbr>l<pbr>t<pbr>a<pbr>l<pbr>k:" & Text1, 0
keybd_event VK_RETURN, 0, 0, 0   ' press enter
keybd_event VK_RETURN, 0, KEYEVENTF_KEYUP, 0   ' release enter
End Sub

it highlights the last "0" in the SendMessege and also highlights "Private Sub Command1_Click"