What i want to do is when i click on cmdBla that will call a function in my class module which will HIGGHLIGHT the text located in the textbox. This is what i am have, and what i am trying.

cmdBla
----------

HighlightTextBox(txtWineTypeName)


CLASS MODULE
------------------------
Private Function HighlightTextBox(oSelect As Object)
oSelect.SetFocus
oSelect.SelStart = 0
oSelect.SelLength = Len(oSelect.Text)
End Function

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

Now that is not doing what its suppose to . Any way all help would be apreciated THX.