Hej,
Jag behöver trycka på back space via kod, men får inte det resultat jag vill uppnå. Jag vill helt enkelt att sista inskrivna tecken i en TextBox skall raderas. Har försökt med följande:

Private Sub lstReport_KeyPress(KeyAscii As Integer) //ListView
txtFind.SetFocus //TextBox
Char = Chr(KeyAscii)
If Not KeyAscii = 8 Then
txtFind.Text = txtFind.Text + Char
Else
txtFind.Text = txtFind.Text + vbKeyBack //Här blir det fel.
End If
End Sub

//Martin

Vet inte riktigt vad du vill men efter din beskrivning så kanske det är så här.

Private Sub lstReport_KeyPress(KeyAscii As Integer)
txtFind.SetFocus ' //TextBox
Char = Chr(KeyAscii)
If Not KeyAscii = 8 Then
txtFind.Text = txtFind.Text + Char
Else
txtFind.Text = Left$(txtFind.Text, Len(txtFind) - 1) ' //Här blir det fel.
End If
End Sub