[Admiral]

Disabling network connection using vb.net 2005

Для VB6 проще было Insert a picture into a RichTextBox control, статью стоит взять на вооружения может удастца перевести на VB.NET до конца, текущий VB.NET

вариант не хочет фуричить

Код:

    Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal _
hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, _
ByVal lParam As String) As Long
    Private Const WM_PASTE = &H302
    Sub InsertPictureInRichTextBox(ByVal RTB As RichTextBox, ByVal Picture As Image)
        ' copy into the clipboard
        ' Copy the picture into the clipboard.
        Clipboard.Clear()
        Clipboard.SetImage(Picture)
        ' paste into the RichTextBox control 
        SendMessage(RTB.Handle, WM_PASTE, 0, 0)
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        InsertPictureInRichTextBox(RichTextBox1, Image.FromFile("c:\winnt\coffee bean.bmp"))
    End Sub

В помощь VB.NET приходит технология OLE Inserting images into a RichTextBox control (the OLE way)
adding a picture in a RichTextBox

Код:

    Dim wordstart As Integer
    Dim wordend As Integer
    Private Sub RichTextBox1_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles RichTextBox1.KeyUp
        If e.KeyCode = Keys.Space Then
            wordend = RichTextBox1.SelectionStart
            RichTextBox1.Select(wordstart, wordend - wordstart)
            RichTextBox1.SelectedText = TitleCase(RichTextBox1.SelectedText)
            RichTextBox1.SelectionStart = wordend
            wordstart = wordend
        End If
    End Sub
    Friend Shared Function TitleCase(ByVal unformattedString As String) As String
        Dim myTI As System.Globalization.TextInfo = New System.Globalization.CultureInfo("en-US", False).TextInfo
        Return myTI.ToTitleCase(unformattedString)
    End Function

How to convert to uppercase
http://www.vbdotnetforums.com/showthread.php?t=7150