300 lines
19 KiB
VB.net
300 lines
19 KiB
VB.net
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
|
|
Partial Class ChatControl
|
|
Inherits System.Windows.Forms.UserControl
|
|
|
|
'UserControl1 überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
|
|
<System.Diagnostics.DebuggerNonUserCode()> _
|
|
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
|
|
Try
|
|
If disposing AndAlso components IsNot Nothing Then
|
|
components.Dispose()
|
|
End If
|
|
Finally
|
|
MyBase.Dispose(disposing)
|
|
End Try
|
|
End Sub
|
|
|
|
'Wird vom Windows Form-Designer benötigt.
|
|
Private components As System.ComponentModel.IContainer
|
|
|
|
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
|
|
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
|
|
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
|
|
<System.Diagnostics.DebuggerStepThrough()> _
|
|
Private Sub InitializeComponent()
|
|
Me.components = New System.ComponentModel.Container()
|
|
Dim ItemTemplate1 As DevExpress.XtraGrid.Views.Tile.ItemTemplate = New DevExpress.XtraGrid.Views.Tile.ItemTemplate()
|
|
Dim TableColumnDefinition1 As DevExpress.XtraEditors.TableLayout.TableColumnDefinition = New DevExpress.XtraEditors.TableLayout.TableColumnDefinition()
|
|
Dim TableColumnDefinition2 As DevExpress.XtraEditors.TableLayout.TableColumnDefinition = New DevExpress.XtraEditors.TableLayout.TableColumnDefinition()
|
|
Dim TileViewItemElement1 As DevExpress.XtraGrid.Views.Tile.TileViewItemElement = New DevExpress.XtraGrid.Views.Tile.TileViewItemElement()
|
|
Dim TileViewItemElement2 As DevExpress.XtraGrid.Views.Tile.TileViewItemElement = New DevExpress.XtraGrid.Views.Tile.TileViewItemElement()
|
|
Dim TileViewItemElement3 As DevExpress.XtraGrid.Views.Tile.TileViewItemElement = New DevExpress.XtraGrid.Views.Tile.TileViewItemElement()
|
|
Dim TableRowDefinition1 As DevExpress.XtraEditors.TableLayout.TableRowDefinition = New DevExpress.XtraEditors.TableLayout.TableRowDefinition()
|
|
Dim TableRowDefinition2 As DevExpress.XtraEditors.TableLayout.TableRowDefinition = New DevExpress.XtraEditors.TableLayout.TableRowDefinition()
|
|
Dim ItemTemplate2 As DevExpress.XtraGrid.Views.Tile.ItemTemplate = New DevExpress.XtraGrid.Views.Tile.ItemTemplate()
|
|
Dim TableColumnDefinition3 As DevExpress.XtraEditors.TableLayout.TableColumnDefinition = New DevExpress.XtraEditors.TableLayout.TableColumnDefinition()
|
|
Dim TableColumnDefinition4 As DevExpress.XtraEditors.TableLayout.TableColumnDefinition = New DevExpress.XtraEditors.TableLayout.TableColumnDefinition()
|
|
Dim TileViewItemElement4 As DevExpress.XtraGrid.Views.Tile.TileViewItemElement = New DevExpress.XtraGrid.Views.Tile.TileViewItemElement()
|
|
Dim TileViewItemElement5 As DevExpress.XtraGrid.Views.Tile.TileViewItemElement = New DevExpress.XtraGrid.Views.Tile.TileViewItemElement()
|
|
Dim TileViewItemElement6 As DevExpress.XtraGrid.Views.Tile.TileViewItemElement = New DevExpress.XtraGrid.Views.Tile.TileViewItemElement()
|
|
Dim TableRowDefinition3 As DevExpress.XtraEditors.TableLayout.TableRowDefinition = New DevExpress.XtraEditors.TableLayout.TableRowDefinition()
|
|
Dim TableRowDefinition4 As DevExpress.XtraEditors.TableLayout.TableRowDefinition = New DevExpress.XtraEditors.TableLayout.TableRowDefinition()
|
|
Dim TableColumnDefinition5 As DevExpress.XtraEditors.TableLayout.TableColumnDefinition = New DevExpress.XtraEditors.TableLayout.TableColumnDefinition()
|
|
Dim TableColumnDefinition6 As DevExpress.XtraEditors.TableLayout.TableColumnDefinition = New DevExpress.XtraEditors.TableLayout.TableColumnDefinition()
|
|
Dim TableRowDefinition5 As DevExpress.XtraEditors.TableLayout.TableRowDefinition = New DevExpress.XtraEditors.TableLayout.TableRowDefinition()
|
|
Dim TableRowDefinition6 As DevExpress.XtraEditors.TableLayout.TableRowDefinition = New DevExpress.XtraEditors.TableLayout.TableRowDefinition()
|
|
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(ChatControl))
|
|
Me.columnUsername = New DevExpress.XtraGrid.Columns.TileViewColumn()
|
|
Me.columnMessage = New DevExpress.XtraGrid.Columns.TileViewColumn()
|
|
Me.columnDate = New DevExpress.XtraGrid.Columns.TileViewColumn()
|
|
Me.RepositoryItemHypertextLabel1 = New DevExpress.XtraEditors.Repository.RepositoryItemHypertextLabel()
|
|
Me.RepositoryItemHyperLinkEdit1 = New DevExpress.XtraEditors.Repository.RepositoryItemHyperLinkEdit()
|
|
Me.GridChat = New DevExpress.XtraGrid.GridControl()
|
|
Me.ChatView = New DevExpress.XtraGrid.Views.Tile.TileView()
|
|
Me.btnSendMessage = New DevExpress.XtraEditors.SimpleButton()
|
|
Me.ChatSource = New System.Windows.Forms.BindingSource(Me.components)
|
|
Me.Panel1 = New System.Windows.Forms.Panel()
|
|
Me.txtMessage = New System.Windows.Forms.TextBox()
|
|
Me.lblTitle = New System.Windows.Forms.Label()
|
|
CType(Me.RepositoryItemHypertextLabel1, System.ComponentModel.ISupportInitialize).BeginInit()
|
|
CType(Me.RepositoryItemHyperLinkEdit1, System.ComponentModel.ISupportInitialize).BeginInit()
|
|
CType(Me.GridChat, System.ComponentModel.ISupportInitialize).BeginInit()
|
|
CType(Me.ChatView, System.ComponentModel.ISupportInitialize).BeginInit()
|
|
CType(Me.ChatSource, System.ComponentModel.ISupportInitialize).BeginInit()
|
|
Me.Panel1.SuspendLayout()
|
|
Me.SuspendLayout()
|
|
'
|
|
'columnUsername
|
|
'
|
|
Me.columnUsername.FieldName = "USER_FROM"
|
|
Me.columnUsername.MinWidth = 23
|
|
Me.columnUsername.Name = "columnUsername"
|
|
Me.columnUsername.Visible = True
|
|
Me.columnUsername.VisibleIndex = 1
|
|
Me.columnUsername.Width = 87
|
|
'
|
|
'columnMessage
|
|
'
|
|
Me.columnMessage.FieldName = "MESSAGE_TEXT"
|
|
Me.columnMessage.MinWidth = 23
|
|
Me.columnMessage.Name = "columnMessage"
|
|
Me.columnMessage.Visible = True
|
|
Me.columnMessage.VisibleIndex = 0
|
|
Me.columnMessage.Width = 87
|
|
'
|
|
'columnDate
|
|
'
|
|
Me.columnDate.FieldName = "ADDED_WHEN"
|
|
Me.columnDate.MinWidth = 23
|
|
Me.columnDate.Name = "columnDate"
|
|
Me.columnDate.Visible = True
|
|
Me.columnDate.VisibleIndex = 2
|
|
Me.columnDate.Width = 87
|
|
'
|
|
'RepositoryItemHypertextLabel1
|
|
'
|
|
Me.RepositoryItemHypertextLabel1.Name = "RepositoryItemHypertextLabel1"
|
|
'
|
|
'RepositoryItemHyperLinkEdit1
|
|
'
|
|
Me.RepositoryItemHyperLinkEdit1.AutoHeight = False
|
|
Me.RepositoryItemHyperLinkEdit1.Name = "RepositoryItemHyperLinkEdit1"
|
|
'
|
|
'GridChat
|
|
'
|
|
Me.GridChat.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
|
|
Or System.Windows.Forms.AnchorStyles.Left) _
|
|
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
|
Me.GridChat.BackgroundImage = Global.DigitalData.Controls.ChatControl.My.Resources.Resources.crop_php
|
|
Me.GridChat.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center
|
|
Me.GridChat.EmbeddedNavigator.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
|
|
Me.GridChat.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
|
Me.GridChat.Location = New System.Drawing.Point(0, 30)
|
|
Me.GridChat.MainView = Me.ChatView
|
|
Me.GridChat.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
|
|
Me.GridChat.Name = "GridChat"
|
|
Me.GridChat.RepositoryItems.AddRange(New DevExpress.XtraEditors.Repository.RepositoryItem() {Me.RepositoryItemHyperLinkEdit1, Me.RepositoryItemHypertextLabel1})
|
|
Me.GridChat.Size = New System.Drawing.Size(420, 454)
|
|
Me.GridChat.TabIndex = 0
|
|
Me.GridChat.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.ChatView})
|
|
'
|
|
'ChatView
|
|
'
|
|
Me.ChatView.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.columnMessage, Me.columnUsername, Me.columnDate})
|
|
Me.ChatView.ContextButtonOptions.HoverStateOpacity = 0.75!
|
|
Me.ChatView.ContextButtonOptions.TopPanelColor = System.Drawing.Color.White
|
|
Me.ChatView.DetailHeight = 431
|
|
Me.ChatView.GridControl = Me.GridChat
|
|
Me.ChatView.Name = "ChatView"
|
|
Me.ChatView.OptionsTiles.ColumnCount = 1
|
|
Me.ChatView.OptionsTiles.GroupTextPadding = New System.Windows.Forms.Padding(0, 8, 12, 8)
|
|
Me.ChatView.OptionsTiles.IndentBetweenGroups = 0
|
|
Me.ChatView.OptionsTiles.IndentBetweenItems = 10
|
|
Me.ChatView.OptionsTiles.ItemPadding = New System.Windows.Forms.Padding(0)
|
|
Me.ChatView.OptionsTiles.ItemSize = New System.Drawing.Size(374, 64)
|
|
Me.ChatView.OptionsTiles.LayoutMode = DevExpress.XtraGrid.Views.Tile.TileViewLayoutMode.Kanban
|
|
Me.ChatView.OptionsTiles.Orientation = System.Windows.Forms.Orientation.Vertical
|
|
Me.ChatView.OptionsTiles.Padding = New System.Windows.Forms.Padding(5)
|
|
Me.ChatView.OptionsTiles.RowCount = 0
|
|
Me.ChatView.OptionsTiles.ScrollMode = DevExpress.XtraEditors.TileControlScrollMode.ScrollBar
|
|
TableColumnDefinition1.Length.Value = 250.0R
|
|
TableColumnDefinition2.Length.Value = 100.0R
|
|
ItemTemplate1.Columns.Add(TableColumnDefinition1)
|
|
ItemTemplate1.Columns.Add(TableColumnDefinition2)
|
|
TileViewItemElement1.Column = Me.columnUsername
|
|
TileViewItemElement1.ImageOptions.ImageAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleCenter
|
|
TileViewItemElement1.ImageOptions.ImageScaleMode = DevExpress.XtraEditors.TileItemImageScaleMode.ZoomInside
|
|
TileViewItemElement1.Text = "columnUsername"
|
|
TileViewItemElement1.TextAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleLeft
|
|
TileViewItemElement1.TextLocation = New System.Drawing.Point(10, 0)
|
|
TileViewItemElement2.Column = Me.columnMessage
|
|
TileViewItemElement2.ImageOptions.ImageAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleCenter
|
|
TileViewItemElement2.ImageOptions.ImageScaleMode = DevExpress.XtraEditors.TileItemImageScaleMode.ZoomInside
|
|
TileViewItemElement2.RowIndex = 1
|
|
TileViewItemElement2.Text = "columnMessage"
|
|
TileViewItemElement2.TextAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleLeft
|
|
TileViewItemElement2.TextLocation = New System.Drawing.Point(10, 0)
|
|
TileViewItemElement3.Column = Me.columnDate
|
|
TileViewItemElement3.ColumnIndex = 1
|
|
TileViewItemElement3.ImageOptions.ImageAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleCenter
|
|
TileViewItemElement3.ImageOptions.ImageScaleMode = DevExpress.XtraEditors.TileItemImageScaleMode.ZoomInside
|
|
TileViewItemElement3.Text = "columnDate"
|
|
TileViewItemElement3.TextAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleRight
|
|
TileViewItemElement3.TextLocation = New System.Drawing.Point(-10, 0)
|
|
ItemTemplate1.Elements.Add(TileViewItemElement1)
|
|
ItemTemplate1.Elements.Add(TileViewItemElement2)
|
|
ItemTemplate1.Elements.Add(TileViewItemElement3)
|
|
ItemTemplate1.Name = "ChatLeft"
|
|
TableRowDefinition1.Length.Value = 24.0R
|
|
TableRowDefinition2.Length.Value = 24.0R
|
|
ItemTemplate1.Rows.Add(TableRowDefinition1)
|
|
ItemTemplate1.Rows.Add(TableRowDefinition2)
|
|
TableColumnDefinition3.Length.Value = 100.0R
|
|
TableColumnDefinition4.Length.Value = 250.0R
|
|
ItemTemplate2.Columns.Add(TableColumnDefinition3)
|
|
ItemTemplate2.Columns.Add(TableColumnDefinition4)
|
|
TileViewItemElement4.Column = Me.columnUsername
|
|
TileViewItemElement4.ColumnIndex = 1
|
|
TileViewItemElement4.ImageOptions.ImageAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleCenter
|
|
TileViewItemElement4.ImageOptions.ImageScaleMode = DevExpress.XtraEditors.TileItemImageScaleMode.ZoomInside
|
|
TileViewItemElement4.Text = "columnUsername"
|
|
TileViewItemElement4.TextAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleRight
|
|
TileViewItemElement4.TextLocation = New System.Drawing.Point(-10, 0)
|
|
TileViewItemElement5.Column = Me.columnMessage
|
|
TileViewItemElement5.ColumnIndex = 1
|
|
TileViewItemElement5.ImageOptions.ImageAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleCenter
|
|
TileViewItemElement5.ImageOptions.ImageScaleMode = DevExpress.XtraEditors.TileItemImageScaleMode.ZoomInside
|
|
TileViewItemElement5.RowIndex = 1
|
|
TileViewItemElement5.Text = "columnMessage"
|
|
TileViewItemElement5.TextAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleRight
|
|
TileViewItemElement5.TextLocation = New System.Drawing.Point(-10, 0)
|
|
TileViewItemElement6.Column = Me.columnDate
|
|
TileViewItemElement6.ImageOptions.ImageAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleCenter
|
|
TileViewItemElement6.ImageOptions.ImageScaleMode = DevExpress.XtraEditors.TileItemImageScaleMode.ZoomInside
|
|
TileViewItemElement6.Text = "columnDate"
|
|
TileViewItemElement6.TextAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleLeft
|
|
TileViewItemElement6.TextLocation = New System.Drawing.Point(10, 0)
|
|
ItemTemplate2.Elements.Add(TileViewItemElement4)
|
|
ItemTemplate2.Elements.Add(TileViewItemElement5)
|
|
ItemTemplate2.Elements.Add(TileViewItemElement6)
|
|
ItemTemplate2.Name = "ChatRight"
|
|
TableRowDefinition3.Length.Value = 24.0R
|
|
TableRowDefinition4.Length.Value = 24.0R
|
|
ItemTemplate2.Rows.Add(TableRowDefinition3)
|
|
ItemTemplate2.Rows.Add(TableRowDefinition4)
|
|
Me.ChatView.Templates.Add(ItemTemplate1)
|
|
Me.ChatView.Templates.Add(ItemTemplate2)
|
|
Me.ChatView.TileColumns.Add(TableColumnDefinition5)
|
|
Me.ChatView.TileColumns.Add(TableColumnDefinition6)
|
|
Me.ChatView.TileRows.Add(TableRowDefinition5)
|
|
Me.ChatView.TileRows.Add(TableRowDefinition6)
|
|
'
|
|
'btnSendMessage
|
|
'
|
|
Me.btnSendMessage.Dock = System.Windows.Forms.DockStyle.Right
|
|
Me.btnSendMessage.ImageOptions.Image = CType(resources.GetObject("btnSendMessage.ImageOptions.Image"), System.Drawing.Image)
|
|
Me.btnSendMessage.ImageOptions.Location = DevExpress.XtraEditors.ImageLocation.MiddleCenter
|
|
Me.btnSendMessage.Location = New System.Drawing.Point(373, 0)
|
|
Me.btnSendMessage.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
|
|
Me.btnSendMessage.Name = "btnSendMessage"
|
|
Me.btnSendMessage.PaintStyle = DevExpress.XtraEditors.Controls.PaintStyles.Light
|
|
Me.btnSendMessage.Size = New System.Drawing.Size(49, 102)
|
|
Me.btnSendMessage.TabIndex = 2
|
|
Me.btnSendMessage.ToolTip = "Add message"
|
|
'
|
|
'Panel1
|
|
'
|
|
Me.Panel1.BackColor = System.Drawing.SystemColors.GradientActiveCaption
|
|
Me.Panel1.Controls.Add(Me.txtMessage)
|
|
Me.Panel1.Controls.Add(Me.btnSendMessage)
|
|
Me.Panel1.Dock = System.Windows.Forms.DockStyle.Bottom
|
|
Me.Panel1.Location = New System.Drawing.Point(0, 485)
|
|
Me.Panel1.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
|
|
Me.Panel1.Name = "Panel1"
|
|
Me.Panel1.Size = New System.Drawing.Size(422, 102)
|
|
Me.Panel1.TabIndex = 3
|
|
'
|
|
'txtMessage
|
|
'
|
|
Me.txtMessage.AcceptsReturn = True
|
|
Me.txtMessage.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
|
|
Or System.Windows.Forms.AnchorStyles.Left) _
|
|
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
|
Me.txtMessage.BackColor = System.Drawing.Color.GhostWhite
|
|
Me.txtMessage.BorderStyle = System.Windows.Forms.BorderStyle.None
|
|
Me.txtMessage.Font = New System.Drawing.Font("Calibri", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
|
Me.txtMessage.ForeColor = System.Drawing.SystemColors.InfoText
|
|
Me.txtMessage.Location = New System.Drawing.Point(17, 15)
|
|
Me.txtMessage.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
|
|
Me.txtMessage.Multiline = True
|
|
Me.txtMessage.Name = "txtMessage"
|
|
Me.txtMessage.ScrollBars = System.Windows.Forms.ScrollBars.Vertical
|
|
Me.txtMessage.Size = New System.Drawing.Size(349, 70)
|
|
Me.txtMessage.TabIndex = 3
|
|
'
|
|
'lblTitle
|
|
'
|
|
Me.lblTitle.AutoSize = True
|
|
Me.lblTitle.Font = New System.Drawing.Font("Tahoma", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
|
Me.lblTitle.Location = New System.Drawing.Point(3, 10)
|
|
Me.lblTitle.Name = "lblTitle"
|
|
Me.lblTitle.Size = New System.Drawing.Size(50, 16)
|
|
Me.lblTitle.TabIndex = 4
|
|
Me.lblTitle.Text = "Label1"
|
|
'
|
|
'ChatControl
|
|
'
|
|
Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
|
|
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
|
Me.Controls.Add(Me.lblTitle)
|
|
Me.Controls.Add(Me.GridChat)
|
|
Me.Controls.Add(Me.Panel1)
|
|
Me.Font = New System.Drawing.Font("Tahoma", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
|
Me.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
|
|
Me.Name = "ChatControl"
|
|
Me.Size = New System.Drawing.Size(422, 587)
|
|
CType(Me.RepositoryItemHypertextLabel1, System.ComponentModel.ISupportInitialize).EndInit()
|
|
CType(Me.RepositoryItemHyperLinkEdit1, System.ComponentModel.ISupportInitialize).EndInit()
|
|
CType(Me.GridChat, System.ComponentModel.ISupportInitialize).EndInit()
|
|
CType(Me.ChatView, System.ComponentModel.ISupportInitialize).EndInit()
|
|
CType(Me.ChatSource, System.ComponentModel.ISupportInitialize).EndInit()
|
|
Me.Panel1.ResumeLayout(False)
|
|
Me.Panel1.PerformLayout()
|
|
Me.ResumeLayout(False)
|
|
Me.PerformLayout()
|
|
|
|
End Sub
|
|
Friend WithEvents GridChat As DevExpress.XtraGrid.GridControl
|
|
Friend WithEvents ChatView As DevExpress.XtraGrid.Views.Tile.TileView
|
|
Friend WithEvents columnMessage As DevExpress.XtraGrid.Columns.TileViewColumn
|
|
Friend WithEvents columnUsername As DevExpress.XtraGrid.Columns.TileViewColumn
|
|
Friend WithEvents columnDate As DevExpress.XtraGrid.Columns.TileViewColumn
|
|
Friend WithEvents ChatSource As BindingSource
|
|
Friend WithEvents btnSendMessage As DevExpress.XtraEditors.SimpleButton
|
|
Friend WithEvents RepositoryItemHyperLinkEdit1 As DevExpress.XtraEditors.Repository.RepositoryItemHyperLinkEdit
|
|
Friend WithEvents RepositoryItemHypertextLabel1 As DevExpress.XtraEditors.Repository.RepositoryItemHypertextLabel
|
|
Friend WithEvents txtMessage As TextBox
|
|
Friend WithEvents Panel1 As Panel
|
|
Friend WithEvents lblTitle As Label
|
|
End Class
|