Mange tak for det
"Harald Staff" <harald.staff@nrk.no> skrev i en meddelelse
news:9ovm2e$6nd$1@oslo-nntp.eunet.no...
> Du er gjerrig på komponentene du, Asbjørn
>
> @sbjørn <asbjorn@caduceus.dk> skrev i
> news:%UIs7.571$Ay.70513@news010.worldonline.dk...
> > Private Sub Form_KeyPress(KeyAscii As Integer)
> > Me.Caption = "Chr(" & KeyAscii & ") = """ + Chr(KeyAscii) + """"
> > App.Title = "Chr(" & KeyAscii & ") = """ + Chr(KeyAscii) + """"
> > End Sub
> >
> > Private Sub Form_Load()
> > KeyPreview = True
> > End Sub
> >
> >
>
>