_ Partial Class Clipboard Inherits System.Windows.Forms.Form 'Form overrides dispose to clean up the component list. _ 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 'Required by the Windows Form Designer Private components As System.ComponentModel.IContainer 'NOTE: The following procedure is required by the Windows Form Designer 'It can be modified using the Windows Form Designer. 'Do not modify it using the code editor. _ Private Sub InitializeComponent() components = New System.ComponentModel.Container() Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Clipboard)) RichTextBox1 = New System.Windows.Forms.RichTextBox() Guna2ContextMenuStrip2 = New Guna.UI2.WinForms.Guna2ContextMenuStrip() GetTextToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() SetTextToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() CopyToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem() ToolStripMenuItem7 = New System.Windows.Forms.ToolStripMenuItem() Timer1 = New System.Windows.Forms.Timer(components) Guna2ContextMenuStrip2.SuspendLayout() SuspendLayout() ' 'RichTextBox1 ' RichTextBox1.BackColor = System.Drawing.Color.White RichTextBox1.BorderStyle = System.Windows.Forms.BorderStyle.None RichTextBox1.ContextMenuStrip = Guna2ContextMenuStrip2 RichTextBox1.Dock = System.Windows.Forms.DockStyle.Fill RichTextBox1.Font = New System.Drawing.Font("Segoe UI", 9.0!) RichTextBox1.ForeColor = System.Drawing.Color.Black RichTextBox1.Location = New System.Drawing.Point(0, 0) RichTextBox1.Name = "RichTextBox1" RichTextBox1.Size = New System.Drawing.Size(412, 256) RichTextBox1.TabIndex = 1 RichTextBox1.Text = "" ' 'Guna2ContextMenuStrip2 ' Guna2ContextMenuStrip2.Items.AddRange(New System.Windows.Forms.ToolStripItem() {GetTextToolStripMenuItem, SetTextToolStripMenuItem, CopyToolStripMenuItem1, ToolStripMenuItem7}) Guna2ContextMenuStrip2.Name = "Guna2ContextMenuStrip2" Guna2ContextMenuStrip2.RenderStyle.ArrowColor = System.Drawing.Color.FromArgb(CType(CType(151, Byte), Integer), CType(CType(143, Byte), Integer), CType(CType(255, Byte), Integer)) Guna2ContextMenuStrip2.RenderStyle.BorderColor = System.Drawing.Color.Gainsboro Guna2ContextMenuStrip2.RenderStyle.ColorTable = Nothing Guna2ContextMenuStrip2.RenderStyle.RoundedEdges = True Guna2ContextMenuStrip2.RenderStyle.SelectionArrowColor = System.Drawing.Color.White Guna2ContextMenuStrip2.RenderStyle.SelectionBackColor = System.Drawing.Color.FromArgb(CType(CType(113, Byte), Integer), CType(CType(74, Byte), Integer), CType(CType(250, Byte), Integer)) Guna2ContextMenuStrip2.RenderStyle.SelectionForeColor = System.Drawing.Color.White Guna2ContextMenuStrip2.RenderStyle.SeparatorColor = System.Drawing.Color.Gainsboro Guna2ContextMenuStrip2.RenderStyle.TextRenderingHint = System.Drawing.Text.TextRenderingHint.ClearTypeGridFit Guna2ContextMenuStrip2.Size = New System.Drawing.Size(181, 114) ' 'GetTextToolStripMenuItem ' GetTextToolStripMenuItem.BackColor = System.Drawing.Color.White GetTextToolStripMenuItem.Image = CType(resources.GetObject("GetTextToolStripMenuItem.Image"), System.Drawing.Image) GetTextToolStripMenuItem.Name = "GetTextToolStripMenuItem" GetTextToolStripMenuItem.Size = New System.Drawing.Size(180, 22) GetTextToolStripMenuItem.Text = "[ Get Text ]" ' 'SetTextToolStripMenuItem ' SetTextToolStripMenuItem.BackColor = System.Drawing.Color.White SetTextToolStripMenuItem.Image = CType(resources.GetObject("SetTextToolStripMenuItem.Image"), System.Drawing.Image) SetTextToolStripMenuItem.Name = "SetTextToolStripMenuItem" SetTextToolStripMenuItem.Size = New System.Drawing.Size(180, 22) SetTextToolStripMenuItem.Text = "[ Set Text ]" ' 'CopyToolStripMenuItem1 ' CopyToolStripMenuItem1.BackColor = System.Drawing.Color.White CopyToolStripMenuItem1.Image = CType(resources.GetObject("CopyToolStripMenuItem1.Image"), System.Drawing.Image) CopyToolStripMenuItem1.Name = "CopyToolStripMenuItem1" CopyToolStripMenuItem1.Size = New System.Drawing.Size(180, 22) CopyToolStripMenuItem1.Text = "[ Copy ]" ' 'ToolStripMenuItem7 ' ToolStripMenuItem7.BackColor = System.Drawing.Color.White ToolStripMenuItem7.Image = CType(resources.GetObject("ToolStripMenuItem7.Image"), System.Drawing.Image) ToolStripMenuItem7.Name = "ToolStripMenuItem7" ToolStripMenuItem7.Size = New System.Drawing.Size(180, 22) ToolStripMenuItem7.Text = "[ Clear ]" ' 'Timer1 ' Timer1.Enabled = True Timer1.Interval = 1000 ' 'Clipboard ' AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font BackColor = System.Drawing.Color.White ClientSize = New System.Drawing.Size(412, 256) Controls.Add(RichTextBox1) Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon) Name = "Clipboard" Text = "Clipboard" Guna2ContextMenuStrip2.ResumeLayout(False) ResumeLayout(False) End Sub Friend WithEvents RichTextBox1 As RichTextBox Friend WithEvents Timer1 As Timer Friend WithEvents Guna2ContextMenuStrip2 As Guna.UI2.WinForms.Guna2ContextMenuStrip Friend WithEvents GetTextToolStripMenuItem As ToolStripMenuItem Friend WithEvents SetTextToolStripMenuItem As ToolStripMenuItem Friend WithEvents CopyToolStripMenuItem1 As ToolStripMenuItem Friend WithEvents ToolStripMenuItem7 As ToolStripMenuItem End Class