hi all!

i am makin a simple addressbook, for homeuse.
i have a form, where i can enter the data

textfields:
firstname
lastname
telno
email
address
zip
city
2. telno
2. email
date of birth

all of them have
appearance: 2d
backcolor: &H00F9FFFF&
forecolor: different (black/blue)
font: verdana (sometimes underlined)
borderstyle: 1

if i set the borderstyle to 0 during form_load, the border still is there.
and if i set the border to 1 in the email_gotfocus sub, the border gets BOLD!
it looks good, but i don't know why it works!

see my code:

Code:
Private Sub EMail_GotFocus()
EMail.SelStart = 0
EMail.SelLength = Len(EMail.Text)
EMail.BorderStyle = 1
EMail.BackColor = &HFFFFFF
End Sub

Private Sub EMail_LostFocus()
EMail.BorderStyle = 0
EMail.BackColor = &HF9FFFF
End Sub

Private Sub Form_Load()
EMail.BorderStyle = 0
End Sub