Hola, proba esta forma...

Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
Dim o As System.Drawing.Graphics =...