Cursor del mouse desaparece al escribir en TextBox RichTextBox

Private Sub TextBox_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tbRutEmpresa.TextChanged
        Me.Cursor = Cursors.Default
    End Sub

    Private Sub TextBox_MouseEnter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tbRutEmpresa.MouseEnter
        Me.Cursor = Cursors.Default
    End Sub

    Private Sub TextBox_MouseLeave(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tbRutEmpresa.MouseLeave
        Me.Cursor = Cursors.Default
    End Sub


fuente