ugh, legacy code

facepalm.vb

Public Class CustomerLogo

  Public Sub New()
    Me.New("")
  End Sub

  Public Sub New(ByVal url As String)
    Me._url = url
  End Sub

  Private _url As String
  Public Property Url() As String
    Get
      Return _url
    End Get
    Set(ByVal value As String)
      _url = value
    End Set
  End Property

  Public Overrides Function ToString() As String
    Return Me._url
  End Function

End Class