title: RichTextBox1 reference to non shared object required an object reference
body: <pre><code>Class DragDropRichTextBox
      Inherits RichTextBox
  
      Public Sub DragDropRichTextBox()
          Me.AllowDrop = True
          AddHandler Me.DragDrop, AddressOf richTextBox1_DragDrop
      End Sub
  
      Public Sub richTextBox1_DragDrop(ByVal sender As Object, ByVal e As DragEventArgs)
  
          Dim filename As Object = e.Data.GetData("FileDrop")
          If filename IsNot Nothing Then
              Dim list = TryCast(filename, String())
  
              If list IsNot Nothing AndAlso Not String.IsNullOrWhiteSpace(list(0)) Then
                  RichTextBox1.Clear()
                  RichTextBox1.LoadFile(list(0), RichTextBoxStreamType.PlainText)
              End If
          End If
      End Sub
  End Class
  </code></pre>
  
  <p>Error on <code>RichTextBox1.clear()</code> and  <code>RichTextBox1.LoadFile(list(0), RichTextBoxStreamType.PlainText)</code></p>
  
  <p>The error is:<br></p>
  
  <blockquote>
    <p>Reference to non-shared member requires an object reference</p>
  </blockquote>