this short excert even as a stand alone gives problem
on clicking button1 the cursor moves one space to left clearing seleted text
on second click of button1 it works ok
If the sib is disabled with button2 then problem occurs again
when clicking button1
Sub App_Start
Form1.Show
Sip(False)
End Sub
Sub Button1_Click
TextBox1.Focus
TextBox1.SelectionStart=0
TextBox1.SelectionLength= _
StrLength(TextBox1.Text)
Sip(True)
End Sub
sub Button2_Click
sip(false)
end sub