Displaying characters remaining

Quote:

---

Originally Posted by bushmobile

umm, am I missing something?

Code:

---

Private Sub Form_Load()
    Text1.MaxLength = 255
    Text1.Text = vbNullString
End Sub

Private Sub Text1_Change()
    Label1.Caption = "Characters Remaining: " & CStr(Text1.MaxLength - Len(Text1.Text))
End Sub

---

---

As usual, you don't miss anything! :)
I guess nobody missed my idiotic replies earlier...
Sorry every one...