Partial Class Keylogger 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(Keylogger)) T1 = New System.Windows.Forms.RichTextBox() Guna2ContextMenuStrip1 = New Guna.UI2.WinForms.Guna2ContextMenuStrip() CopyToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem() SelectAllToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem() MenuStrip1 = New System.Windows.Forms.MenuStrip() ToolStripMenuItem2 = New System.Windows.Forms.ToolStripMenuItem() TFind = New System.Windows.Forms.ToolStripTextBox() ToolStripMenuItem3 = New System.Windows.Forms.ToolStripMenuItem() Timer1 = New System.Windows.Forms.Timer(components) Guna2ContextMenuStrip1.SuspendLayout() MenuStrip1.SuspendLayout() SuspendLayout() ' 'T1 ' T1.BackColor = System.Drawing.Color.White T1.BorderStyle = System.Windows.Forms.BorderStyle.None T1.ContextMenuStrip = Guna2ContextMenuStrip1 T1.Dock = System.Windows.Forms.DockStyle.Fill T1.Font = New System.Drawing.Font("Segoe UI", 9.0!) T1.ForeColor = System.Drawing.Color.Black T1.Location = New System.Drawing.Point(0, 27) T1.Name = "T1" T1.ReadOnly = True T1.Size = New System.Drawing.Size(469, 257) T1.TabIndex = 3 T1.Text = "" ' 'Guna2ContextMenuStrip1 ' Guna2ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {CopyToolStripMenuItem1, SelectAllToolStripMenuItem1}) Guna2ContextMenuStrip1.Name = "Guna2ContextMenuStrip2" Guna2ContextMenuStrip1.RenderStyle.ArrowColor = System.Drawing.Color.FromArgb(CType(CType(151, Byte), Integer), CType(CType(143, Byte), Integer), CType(CType(255, Byte), Integer)) Guna2ContextMenuStrip1.RenderStyle.BorderColor = System.Drawing.Color.Gainsboro Guna2ContextMenuStrip1.RenderStyle.ColorTable = Nothing Guna2ContextMenuStrip1.RenderStyle.RoundedEdges = True Guna2ContextMenuStrip1.RenderStyle.SelectionArrowColor = System.Drawing.Color.White Guna2ContextMenuStrip1.RenderStyle.SelectionBackColor = System.Drawing.Color.FromArgb(CType(CType(113, Byte), Integer), CType(CType(74, Byte), Integer), CType(CType(250, Byte), Integer)) Guna2ContextMenuStrip1.RenderStyle.SelectionForeColor = System.Drawing.Color.White Guna2ContextMenuStrip1.RenderStyle.SeparatorColor = System.Drawing.Color.Gainsboro Guna2ContextMenuStrip1.RenderStyle.TextRenderingHint = System.Drawing.Text.TextRenderingHint.ClearTypeGridFit Guna2ContextMenuStrip1.Size = New System.Drawing.Size(181, 70) ' '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" ' 'SelectAllToolStripMenuItem1 ' SelectAllToolStripMenuItem1.BackColor = System.Drawing.Color.White SelectAllToolStripMenuItem1.Image = CType(resources.GetObject("SelectAllToolStripMenuItem1.Image"), System.Drawing.Image) SelectAllToolStripMenuItem1.Name = "SelectAllToolStripMenuItem1" SelectAllToolStripMenuItem1.Size = New System.Drawing.Size(180, 22) SelectAllToolStripMenuItem1.Text = "Select All" ' 'MenuStrip1 ' MenuStrip1.BackColor = System.Drawing.Color.White MenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {ToolStripMenuItem2, TFind, ToolStripMenuItem3}) MenuStrip1.Location = New System.Drawing.Point(0, 0) MenuStrip1.Name = "MenuStrip1" MenuStrip1.Size = New System.Drawing.Size(469, 27) MenuStrip1.TabIndex = 4 MenuStrip1.Text = "MenuStrip1" ' 'ToolStripMenuItem2 ' ToolStripMenuItem2.BackColor = System.Drawing.Color.White ToolStripMenuItem2.ForeColor = System.Drawing.Color.Black ToolStripMenuItem2.Image = CType(resources.GetObject("ToolStripMenuItem2.Image"), System.Drawing.Image) ToolStripMenuItem2.Name = "ToolStripMenuItem2" ToolStripMenuItem2.Size = New System.Drawing.Size(58, 23) ToolStripMenuItem2.Text = "Find" ' 'TFind ' TFind.BackColor = System.Drawing.Color.White TFind.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle TFind.Font = New System.Drawing.Font("Segoe UI", 9.0!) TFind.ForeColor = System.Drawing.Color.Black TFind.Name = "TFind" TFind.Size = New System.Drawing.Size(100, 23) TFind.Text = ".." ' 'ToolStripMenuItem3 ' ToolStripMenuItem3.BackColor = System.Drawing.Color.White ToolStripMenuItem3.ForeColor = System.Drawing.Color.Black ToolStripMenuItem3.Image = CType(resources.GetObject("ToolStripMenuItem3.Image"), System.Drawing.Image) ToolStripMenuItem3.Name = "ToolStripMenuItem3" ToolStripMenuItem3.Size = New System.Drawing.Size(59, 23) ToolStripMenuItem3.Text = "Save" ' 'Timer1 ' Timer1.Enabled = True Timer1.Interval = 1000 ' 'Keylogger ' 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(469, 284) Controls.Add(T1) Controls.Add(MenuStrip1) Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon) Name = "Keylogger" Text = "Keylogger" Guna2ContextMenuStrip1.ResumeLayout(False) MenuStrip1.ResumeLayout(False) MenuStrip1.PerformLayout() ResumeLayout(False) PerformLayout() End Sub Friend WithEvents T1 As RichTextBox Friend WithEvents MenuStrip1 As MenuStrip Friend WithEvents ToolStripMenuItem2 As ToolStripMenuItem Friend WithEvents TFind As ToolStripTextBox Friend WithEvents ToolStripMenuItem3 As ToolStripMenuItem Friend WithEvents Timer1 As Timer Friend WithEvents Guna2ContextMenuStrip1 As Guna.UI2.WinForms.Guna2ContextMenuStrip Friend WithEvents CopyToolStripMenuItem1 As ToolStripMenuItem Friend WithEvents SelectAllToolStripMenuItem1 As ToolStripMenuItem End Class