Labels:crt screen | dialog box | monitor | plant | web site | window OCR: frmCode .frm File Procedure RTF MouseDown Selection Procedure Module Code End Copy as HTML End Sub Copy as HTML (no header Private Sub RTF MouseDown Button Integer Shift Integu Save As HTML 3E Lect. ion line Dim MY SEL Long Dim POINTL, CurPos AS Long Screen TwipsPerP ixe 1 X Screen TwipsPerP ixelY RTFtemp Se. istart SendMessage (RTF .hwnd, EM CHARFROMPOS, 0, PI| RTF 'temp Se lLength MY SEL SendMessage (RTFt temp hwnd, EM SELECTI 0 ByVal 0) SEL And SEL OBJECT Then Loc kWi indo wUpdate RTF hwnd RTF Se istar RTFt ep Se lstart RTF SeiLength End End Sub Private Sub RTF MouseUp (Button Integer. Shift Integer Single, T Sinc Hiding selection cf line Dim MY SEL Long SEL SendMessage (RTF hwnd EM SELECTION ByVal SEL And SEL OBJECT Then Not And SEL TEXT Then RTF Se. iLength C:\Program -iles \frmCode f ...
