Interface IUIControl
  Sub Paint()
End Interface

Interface ITextBox
  Inherits IUIControl

  Sub SetText(ByVal value As String)
End Interface

Interface IListBox
  Inherits IUIControl

  Sub SetItems(ByVal items() As String)
End Interface

Interface IComboBox
  Inherits ITextBox, IListBox
End Interface