Double Space in RTB

Does anyone know how to doublespace lines in a RTB  lso i just want to double space the lines i have selected.

example..

line1
line2
line3

becomes

line1

line2

line3
BI5HOPAsked:
Who is Participating?
 
EDDYKTCommented:
How about


Private Sub rtfText_KeyDown(KeyCode As Integer, Shift As Integer)
If (KeyCode = 13) Then
    If (Len(rtfText.SelText) > 0) Then
        Debug.Print Replace(Replace(rtfText.SelText, vbCrLf & vbCrLf, vbCrLf), vbCrLf, vbCrLf & vbCrLf)
        KeyCode = 0
        rtfText.SelText = Replace(Replace(rtfText.SelText, vbCrLf & vbCrLf, vbCrLf), vbCrLf, vbCrLf & vbCrLf)
    End If
End If
End Sub
0
 
BI5HOPAuthor Commented:
I had to make a small change since i wanted it on rightclick i forgot to mention that but yea it worked great thanks :)

0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.