Detta fungerar när jag bara har en Form
Men jag får det inte att fungera när jag lägger in en Form till (Form2)
Det fungerar fortfarande i Form1, men inte i Form2
Ska man lägga den i en modul, eller hur gör jag.

Private DoOverWrite As Boolean
OverWriteModee Text1, KeyAscii

Private Sub OverWriteMode(Tbox As TextBox, KeyAscii As Integer)
If KeyAscii < 32 Then
Exit Sub
End If
If DoOverWrite Then
If Tbox.SelLength = 0 Then
Tbox.SelLength = 1
End If
End If
End Sub


Sören

Lägg den i en modul och ändra från Private till Public.

/Micke

Får det inte att fungera...