Private Sub UserForm_MouseUp(ByVal Button As Integer, ByVal ...
Private Sub UserForm_MouseUp(ByVal Button As Integer, ByVal ...
Private Sub UserForm_MouseUp(ByVal Button As Integer, ByVal ...
You also want an ePaper? Increase the reach of your titles
YUMPU automatically turns print PDFs into web optimized ePapers that Google loves.
<strong>Private</strong> <strong>Sub</strong> <strong>UserForm</strong>_MouseMove(<strong>ByVal</strong> <strong>Button</strong> <strong>As</strong> <strong>Integer</strong>, <strong>ByVal</strong> Shift <strong>As</strong> <strong>Integer</strong>, <strong>ByVal</strong> X <strong>As</strong> Single, <strong>ByVal</strong> Y <strong>As</strong> Single)<br />
Select Case <strong>Button</strong><br />
Case vbKeyL<strong>Button</strong><br />
TextBox1.Text = X<br />
Case vbKeyR<strong>Button</strong><br />
TextBox1.Text = Y<br />
End Select<br />
End <strong>Sub</strong>