long story short, I am trying to have two response objects that can be clicked by mouse. My subjects will only be able to click one of them (as soon as that happens, the procedure will move forward). clicking elsewhere results in nothing.<br><br>I have attached an Inline after that slide, however I can't seem to get the coding right.  Can someone take a look and let me know what I am doing wrong. Thank you so much :)   (by the way I copied this code from someone in this group, I can't remember her name though, but I love her for sharing this. Hopefully I can get it to work in my design).<br><br>The slide I want to make this work is "slide5", the two buttons are named "leftbutton" and "right button".  I will need to log which button my subjects will click for the purpose of my experiment.<br><br>here are the codes:<br><br><br>=============================================================================<br><br><br>'Designate "theState" as the Default Slide State, which is the<br>        'current, ActiveState on the Slide object "Stimulus"<br><br>        Dim theState as SlideState<br>        Set theState = Slide5.States("Default")<br><br>        Dim next_mX as Long, next_mY as Long<br><br>        Dim strHit As String<br>        Dim theMouseResponseData As MouseResponseData<br><br>        Do until (strHit = "leftbutton" or strHit = "rightbutton")<br>        'Was there a response?<br>                If Slide5.InputMasks.Responses.Count > 0 Then<br><br>                        'Get the mouse response<br>                        Set theMouseResponseData = CMouseResponseData(Slide5.InputMasks.Responses(1))<br><br>                        'Determine string name of Slide or SlideText object at<br>                        'mouse click coordinates. Assign that value to strHit<br>                        strHit = theState.HitTest(theMouseResponseData.CursorX,theMouseResponseData.CursorY)<br><br>                        'Compare string name where mouse click occurred to CorrectAnswer<br>                        'attribute on each trial, and score response<br>                        'NOTE: This comparison is case sensitive<br>                        If strHit = "leftbutton" or strHit = "rightbutton" Then<br>                             GoTo begingame<br><br>                        End if<br><br>                Do Until (strHit = "leftbutton" or strHit = "rightbutton")<br>                ' capture & process further mouse clicks:<br>                        If (Mouse.Buttons And ebMouseButton1) Then<br>                                Mouse.GetCursorPos next_mX, next_mY<br>                                strHit = theState.HitTest( next_mX, next_mY )<br>                        End If<br><br>                        If strHit = "leftbutton" or strHit = "rightbutton" Then<br>                             GoTo begingame<br>                        End If<br><br>     Loop<br><br><br>

<p></p>

-- <br />
You received this message because you are subscribed to the Google Groups "E-Prime" group.<br />
To view this discussion on the web visit <a href="https://groups.google.com/d/msg/e-prime/-/W-8a1QqvHZgJ">https://groups.google.com/d/msg/e-prime/-/W-8a1QqvHZgJ</a>.<br /> 
To post to this group, send email to e-prime@googlegroups.com.<br />
To unsubscribe from this group, send email to e-prime+unsubscribe@googlegroups.com.<br />

For more options, visit this group at http://groups.google.com/group/e-prime?hl=en.<br />