View Single Post
  #2 (permalink)  
Old June 9th, 2003, 12:46 AM
Steven Steven is offline
Friend of Wrox
 
Join Date: Jun 2003
Location: Melbourne, Vic, Australia.
Posts: 308
Thanks: 0
Thanked 0 Times in 0 Posts
Default

Try putting some code in the textbox's Key Up event.

Something along the lines of this should work:
Code:
Private Sub Text0_KeyUp(KeyCode As Integer, Shift As Integer)
If Len(Text0.Text) > 30 Then SendKeys Chr(8)
End Sub

HTH

Steven

I am a loud man with a very large hat. This means I am in charge.
Reply With Quote