I put this code in a program for having a bigger cursor for EVERY textbox:

Private Sub txtOrdArtikelnr_GotFocus()
h& = GetFocus&(): sb& = Picture1.Picture: Call CreateCaret(h&, sb&, 1, 5): sx& = ShowCaret&(h&)
End Sub
Private Sub txtOrdArtikelOms_GotFocus()
h& = GetFocus&(): sb& = Picture1.Picture: Call CreateCaret(h&, sb&, 1, 5): sx& = ShowCaret&(h&)
End Sub
Private Sub txtOrdaantal_GotFocus()
h& = GetFocus&(): sb& = Picture1.Picture: Call CreateCaret(h&, sb&, 1, 5): sx& = ShowCaret&(h&)
End Sub
Private Sub txtOrdEenheid_GotFocus()
h& = GetFocus&(): sb& = Picture1.Picture: Call CreateCaret(h&, sb&, 1, 5): sx& = ShowCaret&(h&)
End Sub
Private Sub txtOrdPrijs_GotFocus()
h& = GetFocus&(): sb& = Picture1.Picture: Call CreateCaret(h&, sb&, 1, 5): sx& = ShowCaret&(h&)
End Sub

And several more of these sub's. I think this can be done better and easy'er. Any one have suggestions ?


------------------