Question

I have the following code:

Private Sub Tabstrip1_Click()
   Form2.Show vbModal, Me
end sub

Form2 has just a Close button. The first mouseclick on Form2 has no visible effect unless form2 lies over the calling form, then an error is raised that a modal form cannot be shown twice! So what happens is that the first mouseclick is registered on the parent form. I tried all kind of workarounds (mostly by going through Tabstrip1_GotFocus), but I could not get it to work without doing some very convoluted things.

Is there a simple solution?

Answer 1

Use this code to fix mouse capture issues TabStrip control exhibits in your particular case

Private Declare Function ReleaseCapture Lib "user32" () As Long

Private Sub TabStrip1_Click()
    Call ReleaseCapture
    Form2.Show vbModal, Me
End Sub