_ Partial Class Webchat1998 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() Me.components = New System.ComponentModel.Container() Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Webchat1998)) Me.Label7 = New System.Windows.Forms.Label() Me.Label6 = New System.Windows.Forms.Label() Me.Panel1 = New System.Windows.Forms.Panel() Me.Button5 = New System.Windows.Forms.Button() Me.Label5 = New System.Windows.Forms.Label() Me.Button4 = New System.Windows.Forms.Button() Me.Button3 = New System.Windows.Forms.Button() Me.Button2 = New System.Windows.Forms.Button() Me.login = New System.Windows.Forms.Panel() Me.TextBox2 = New System.Windows.Forms.TextBox() Me.TextBox1 = New System.Windows.Forms.TextBox() Me.Label4 = New System.Windows.Forms.Label() Me.Label3 = New System.Windows.Forms.Label() Me.Button1 = New System.Windows.Forms.Button() Me.txtscreenname = New System.Windows.Forms.TextBox() Me.Label2 = New System.Windows.Forms.Label() Me.typechat = New System.Windows.Forms.TextBox() Me.history = New System.Windows.Forms.TextBox() Me.Label1 = New System.Windows.Forms.Label() Me.ListBox1 = New System.Windows.Forms.ListBox() Me.look = New System.Windows.Forms.Timer(Me.components) Me.Chat = New System.Windows.Forms.Timer(Me.components) Me.program = New System.Windows.Forms.Panel() Me.programtopbar = New System.Windows.Forms.Panel() Me.maximizebutton = New System.Windows.Forms.PictureBox() Me.minimizebutton = New System.Windows.Forms.PictureBox() Me.programname = New System.Windows.Forms.Label() Me.closebutton = New System.Windows.Forms.PictureBox() Me.toprightcorner = New System.Windows.Forms.Panel() Me.bottomrightcorner = New System.Windows.Forms.Panel() Me.bottomleftcorner = New System.Windows.Forms.Panel() Me.topleftcorner = New System.Windows.Forms.Panel() Me.left = New System.Windows.Forms.Panel() Me.bottom = New System.Windows.Forms.Panel() Me.right = New System.Windows.Forms.Panel() Me.top = New System.Windows.Forms.Panel() Me.pullbs = New System.Windows.Forms.Timer(Me.components) Me.pullbottom = New System.Windows.Forms.Timer(Me.components) Me.pullside = New System.Windows.Forms.Timer(Me.components) Me.Panel1.SuspendLayout() Me.login.SuspendLayout() Me.program.SuspendLayout() Me.programtopbar.SuspendLayout() CType(Me.maximizebutton, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.minimizebutton, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.closebutton, System.ComponentModel.ISupportInitialize).BeginInit() Me.SuspendLayout() ' 'Label7 ' Me.Label7.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.Label7.AutoSize = True Me.Label7.Location = New System.Drawing.Point(22, 33) Me.Label7.Name = "Label7" Me.Label7.Size = New System.Drawing.Size(454, 13) Me.Label7.TabIndex = 18 Me.Label7.Text = "To speak, just type a message in the bottom textbox then press the speak button o" & "r press enter" ' 'Label6 ' Me.Label6.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.Label6.AutoSize = True Me.Label6.Location = New System.Drawing.Point(504, 394) Me.Label6.Name = "Label6" Me.Label6.Size = New System.Drawing.Size(62, 13) Me.Label6.TabIndex = 17 Me.Label6.Text = "File Sharing" ' 'Panel1 ' Me.Panel1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.Panel1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle Me.Panel1.Controls.Add(Me.Button5) Me.Panel1.Controls.Add(Me.Label5) Me.Panel1.Location = New System.Drawing.Point(504, 413) Me.Panel1.Name = "Panel1" Me.Panel1.Size = New System.Drawing.Size(195, 51) Me.Panel1.TabIndex = 16 ' 'Button5 ' Me.Button5.Location = New System.Drawing.Point(97, 13) Me.Button5.Name = "Button5" Me.Button5.Size = New System.Drawing.Size(75, 23) Me.Button5.TabIndex = 16 Me.Button5.Text = "Download" Me.Button5.UseVisualStyleBackColor = True ' 'Label5 ' Me.Label5.AutoSize = True Me.Label5.Location = New System.Drawing.Point(13, 18) Me.Label5.Name = "Label5" Me.Label5.Size = New System.Drawing.Size(68, 13) Me.Label5.TabIndex = 15 Me.Label5.Text = "Skindows 95" ' 'Button4 ' Me.Button4.Location = New System.Drawing.Point(235, 427) Me.Button4.Name = "Button4" Me.Button4.Size = New System.Drawing.Size(75, 23) Me.Button4.TabIndex = 14 Me.Button4.Text = "Bill" Me.Button4.UseVisualStyleBackColor = True ' 'Button3 ' Me.Button3.Location = New System.Drawing.Point(149, 427) Me.Button3.Name = "Button3" Me.Button3.Size = New System.Drawing.Size(75, 23) Me.Button3.TabIndex = 13 Me.Button3.Text = "Paul" Me.Button3.UseVisualStyleBackColor = True ' 'Button2 ' Me.Button2.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.Button2.Location = New System.Drawing.Point(422, 435) Me.Button2.Name = "Button2" Me.Button2.Size = New System.Drawing.Size(71, 23) Me.Button2.TabIndex = 11 Me.Button2.Text = "Speak" Me.Button2.UseVisualStyleBackColor = True ' 'login ' Me.login.Controls.Add(Me.TextBox2) Me.login.Controls.Add(Me.TextBox1) Me.login.Controls.Add(Me.Label4) Me.login.Controls.Add(Me.Label3) Me.login.Controls.Add(Me.Button1) Me.login.Controls.Add(Me.txtscreenname) Me.login.Controls.Add(Me.Label2) Me.login.Location = New System.Drawing.Point(92, 114) Me.login.Name = "login" Me.login.Size = New System.Drawing.Size(497, 251) Me.login.TabIndex = 10 ' 'TextBox2 ' Me.TextBox2.BackColor = System.Drawing.Color.Silver Me.TextBox2.BorderStyle = System.Windows.Forms.BorderStyle.None Me.TextBox2.Location = New System.Drawing.Point(331, 72) Me.TextBox2.Multiline = True Me.TextBox2.Name = "TextBox2" Me.TextBox2.ReadOnly = True Me.TextBox2.Size = New System.Drawing.Size(151, 86) Me.TextBox2.TabIndex = 6 Me.TextBox2.Text = "A screen name is a temporary name which will be displayed in place of your real n" & "ame. To keep your identity safe please do not enter your real name in this chatr" & "oom" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) ' 'TextBox1 ' Me.TextBox1.Location = New System.Drawing.Point(26, 72) Me.TextBox1.Multiline = True Me.TextBox1.Name = "TextBox1" Me.TextBox1.Size = New System.Drawing.Size(276, 159) Me.TextBox1.TabIndex = 5 Me.TextBox1.Text = resources.GetString("TextBox1.Text") ' 'Label4 ' Me.Label4.AutoSize = True Me.Label4.Location = New System.Drawing.Point(118, 56) Me.Label4.Name = "Label4" Me.Label4.Size = New System.Drawing.Size(90, 13) Me.Label4.TabIndex = 4 Me.Label4.Text = "Chat Room Rules" ' 'Label3 ' Me.Label3.AutoSize = True Me.Label3.Location = New System.Drawing.Point(196, 16) Me.Label3.Name = "Label3" Me.Label3.Size = New System.Drawing.Size(115, 13) Me.Label3.TabIndex = 3 Me.Label3.Text = "Welcome To Webchat" ' 'Button1 ' Me.Button1.Location = New System.Drawing.Point(331, 208) Me.Button1.Name = "Button1" Me.Button1.Size = New System.Drawing.Size(151, 23) Me.Button1.TabIndex = 2 Me.Button1.Text = "Login" Me.Button1.UseVisualStyleBackColor = True ' 'txtscreenname ' Me.txtscreenname.Location = New System.Drawing.Point(331, 181) Me.txtscreenname.Name = "txtscreenname" Me.txtscreenname.Size = New System.Drawing.Size(151, 20) Me.txtscreenname.TabIndex = 1 ' 'Label2 ' Me.Label2.AutoSize = True Me.Label2.Location = New System.Drawing.Point(328, 161) Me.Label2.Name = "Label2" Me.Label2.Size = New System.Drawing.Size(150, 13) Me.Label2.TabIndex = 0 Me.Label2.Text = "Please Type in a screen name" ' 'typechat ' Me.typechat.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _ Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.typechat.Location = New System.Drawing.Point(20, 435) Me.typechat.Name = "typechat" Me.typechat.Size = New System.Drawing.Size(395, 20) Me.typechat.TabIndex = 9 ' 'history ' Me.history.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.history.Location = New System.Drawing.Point(22, 52) Me.history.Multiline = True Me.history.Name = "history" Me.history.ReadOnly = True Me.history.ScrollBars = System.Windows.Forms.ScrollBars.Vertical Me.history.Size = New System.Drawing.Size(471, 377) Me.history.TabIndex = 8 ' 'Label1 ' Me.Label1.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.Label1.AutoSize = True Me.Label1.Location = New System.Drawing.Point(501, 33) Me.Label1.Name = "Label1" Me.Label1.Size = New System.Drawing.Size(85, 13) Me.Label1.TabIndex = 7 Me.Label1.Text = "Users Logged In" ' 'ListBox1 ' Me.ListBox1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.ListBox1.FormattingEnabled = True Me.ListBox1.Location = New System.Drawing.Point(504, 52) Me.ListBox1.Name = "ListBox1" Me.ListBox1.Size = New System.Drawing.Size(195, 329) Me.ListBox1.TabIndex = 12 ' 'look ' ' 'Chat ' Me.Chat.Interval = 15000 ' 'program ' Me.program.BackColor = System.Drawing.Color.Silver Me.program.Controls.Add(Me.programtopbar) Me.program.Controls.Add(Me.login) Me.program.Controls.Add(Me.Label7) Me.program.Controls.Add(Me.Button3) Me.program.Controls.Add(Me.toprightcorner) Me.program.Controls.Add(Me.Button4) Me.program.Controls.Add(Me.bottomrightcorner) Me.program.Controls.Add(Me.history) Me.program.Controls.Add(Me.Label6) Me.program.Controls.Add(Me.bottomleftcorner) Me.program.Controls.Add(Me.typechat) Me.program.Controls.Add(Me.topleftcorner) Me.program.Controls.Add(Me.Button2) Me.program.Controls.Add(Me.left) Me.program.Controls.Add(Me.Label1) Me.program.Controls.Add(Me.bottom) Me.program.Controls.Add(Me.Panel1) Me.program.Controls.Add(Me.right) Me.program.Controls.Add(Me.top) Me.program.Controls.Add(Me.ListBox1) Me.program.Dock = System.Windows.Forms.DockStyle.Fill Me.program.Location = New System.Drawing.Point(0, 0) Me.program.Name = "program" Me.program.Size = New System.Drawing.Size(724, 482) Me.program.TabIndex = 19 ' 'programtopbar ' Me.programtopbar.BackColor = System.Drawing.Color.DarkBlue Me.programtopbar.Controls.Add(Me.maximizebutton) Me.programtopbar.Controls.Add(Me.minimizebutton) Me.programtopbar.Controls.Add(Me.programname) Me.programtopbar.Controls.Add(Me.closebutton) Me.programtopbar.Dock = System.Windows.Forms.DockStyle.Top Me.programtopbar.Location = New System.Drawing.Point(4, 4) Me.programtopbar.Name = "programtopbar" Me.programtopbar.Size = New System.Drawing.Size(716, 18) Me.programtopbar.TabIndex = 0 ' 'maximizebutton ' Me.maximizebutton.Anchor = System.Windows.Forms.AnchorStyles.Right Me.maximizebutton.Image = Global.Histacom.My.Resources.Resources.Maximize Me.maximizebutton.Location = New System.Drawing.Point(682, 2) Me.maximizebutton.Name = "maximizebutton" Me.maximizebutton.Size = New System.Drawing.Size(16, 14) Me.maximizebutton.TabIndex = 6 Me.maximizebutton.TabStop = False ' 'minimizebutton ' Me.minimizebutton.Anchor = System.Windows.Forms.AnchorStyles.Right Me.minimizebutton.Image = Global.Histacom.My.Resources.Resources.minimize Me.minimizebutton.Location = New System.Drawing.Point(666, 2) Me.minimizebutton.Name = "minimizebutton" Me.minimizebutton.Size = New System.Drawing.Size(16, 14) Me.minimizebutton.TabIndex = 5 Me.minimizebutton.TabStop = False ' 'programname ' Me.programname.AutoSize = True Me.programname.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.programname.ForeColor = System.Drawing.Color.White Me.programname.Location = New System.Drawing.Point(3, 2) Me.programname.Name = "programname" Me.programname.Size = New System.Drawing.Size(95, 13) Me.programname.TabIndex = 3 Me.programname.Text = "Web Chat 1998" ' 'closebutton ' Me.closebutton.Anchor = System.Windows.Forms.AnchorStyles.Right Me.closebutton.Image = Global.Histacom.My.Resources.Resources.close Me.closebutton.Location = New System.Drawing.Point(699, 2) Me.closebutton.Name = "closebutton" Me.closebutton.Size = New System.Drawing.Size(16, 14) Me.closebutton.TabIndex = 4 Me.closebutton.TabStop = False ' 'toprightcorner ' Me.toprightcorner.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.toprightcorner.BackgroundImage = Global.Histacom.My.Resources.Resources.windows95toprightcorner Me.toprightcorner.Location = New System.Drawing.Point(720, 0) Me.toprightcorner.Name = "toprightcorner" Me.toprightcorner.Size = New System.Drawing.Size(4, 4) Me.toprightcorner.TabIndex = 6 ' 'bottomrightcorner ' Me.bottomrightcorner.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.bottomrightcorner.BackgroundImage = Global.Histacom.My.Resources.Resources.windows95bottomrightcorner Me.bottomrightcorner.Cursor = System.Windows.Forms.Cursors.SizeNWSE Me.bottomrightcorner.Location = New System.Drawing.Point(720, 478) Me.bottomrightcorner.Name = "bottomrightcorner" Me.bottomrightcorner.Size = New System.Drawing.Size(4, 4) Me.bottomrightcorner.TabIndex = 4 ' 'bottomleftcorner ' Me.bottomleftcorner.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) Me.bottomleftcorner.BackgroundImage = Global.Histacom.My.Resources.Resources.windows95bottomleftcorner Me.bottomleftcorner.Location = New System.Drawing.Point(0, 478) Me.bottomleftcorner.Name = "bottomleftcorner" Me.bottomleftcorner.Size = New System.Drawing.Size(4, 4) Me.bottomleftcorner.TabIndex = 2 ' 'topleftcorner ' Me.topleftcorner.BackgroundImage = Global.Histacom.My.Resources.Resources.windows95topleftcorner Me.topleftcorner.Location = New System.Drawing.Point(0, 0) Me.topleftcorner.Name = "topleftcorner" Me.topleftcorner.Size = New System.Drawing.Size(4, 4) Me.topleftcorner.TabIndex = 1 ' 'left ' Me.left.BackgroundImage = Global.Histacom.My.Resources.Resources.windows95leftside Me.left.Dock = System.Windows.Forms.DockStyle.Left Me.left.Location = New System.Drawing.Point(0, 4) Me.left.Name = "left" Me.left.Size = New System.Drawing.Size(4, 474) Me.left.TabIndex = 3 ' 'bottom ' Me.bottom.BackgroundImage = Global.Histacom.My.Resources.Resources.windows95bottom Me.bottom.Cursor = System.Windows.Forms.Cursors.SizeNS Me.bottom.Dock = System.Windows.Forms.DockStyle.Bottom Me.bottom.Location = New System.Drawing.Point(0, 478) Me.bottom.Name = "bottom" Me.bottom.Size = New System.Drawing.Size(720, 4) Me.bottom.TabIndex = 5 ' 'right ' Me.right.BackgroundImage = Global.Histacom.My.Resources.Resources.windows95rightside Me.right.Cursor = System.Windows.Forms.Cursors.SizeWE Me.right.Dock = System.Windows.Forms.DockStyle.Right Me.right.Location = New System.Drawing.Point(720, 4) Me.right.Name = "right" Me.right.Size = New System.Drawing.Size(4, 478) Me.right.TabIndex = 7 ' 'top ' Me.top.BackgroundImage = Global.Histacom.My.Resources.Resources.windows95top Me.top.Dock = System.Windows.Forms.DockStyle.Top Me.top.Location = New System.Drawing.Point(0, 0) Me.top.Name = "top" Me.top.Size = New System.Drawing.Size(724, 4) Me.top.TabIndex = 8 ' 'pullbs ' Me.pullbs.Interval = 1 ' 'pullbottom ' Me.pullbottom.Interval = 1 ' 'pullside ' Me.pullside.Interval = 1 ' 'Webchat1998 ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.ClientSize = New System.Drawing.Size(724, 482) Me.Controls.Add(Me.program) Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None Me.Name = "Webchat1998" Me.Text = "Webchat" Me.TopMost = True Me.Panel1.ResumeLayout(False) Me.Panel1.PerformLayout() Me.login.ResumeLayout(False) Me.login.PerformLayout() Me.program.ResumeLayout(False) Me.program.PerformLayout() Me.programtopbar.ResumeLayout(False) Me.programtopbar.PerformLayout() CType(Me.maximizebutton, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.minimizebutton, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.closebutton, System.ComponentModel.ISupportInitialize).EndInit() Me.ResumeLayout(False) End Sub Friend WithEvents look As System.Windows.Forms.Timer Friend WithEvents history As System.Windows.Forms.TextBox Friend WithEvents Label1 As System.Windows.Forms.Label Friend WithEvents typechat As System.Windows.Forms.TextBox Friend WithEvents login As System.Windows.Forms.Panel Friend WithEvents Button1 As System.Windows.Forms.Button Friend WithEvents txtscreenname As System.Windows.Forms.TextBox Friend WithEvents Label2 As System.Windows.Forms.Label Friend WithEvents TextBox1 As System.Windows.Forms.TextBox Friend WithEvents Label4 As System.Windows.Forms.Label Friend WithEvents Label3 As System.Windows.Forms.Label Friend WithEvents Button2 As System.Windows.Forms.Button Friend WithEvents Chat As System.Windows.Forms.Timer Friend WithEvents ListBox1 As System.Windows.Forms.ListBox Friend WithEvents Button4 As System.Windows.Forms.Button Friend WithEvents Button3 As System.Windows.Forms.Button Friend WithEvents Panel1 As System.Windows.Forms.Panel Friend WithEvents Label5 As System.Windows.Forms.Label Friend WithEvents Label6 As System.Windows.Forms.Label Friend WithEvents Button5 As System.Windows.Forms.Button Friend WithEvents Label7 As System.Windows.Forms.Label Friend WithEvents TextBox2 As System.Windows.Forms.TextBox Friend WithEvents program As System.Windows.Forms.Panel Friend WithEvents programtopbar As System.Windows.Forms.Panel Friend WithEvents maximizebutton As System.Windows.Forms.PictureBox Friend WithEvents minimizebutton As System.Windows.Forms.PictureBox Friend WithEvents programname As System.Windows.Forms.Label Friend WithEvents closebutton As System.Windows.Forms.PictureBox Friend WithEvents toprightcorner As System.Windows.Forms.Panel Friend WithEvents bottomrightcorner As System.Windows.Forms.Panel Friend WithEvents bottomleftcorner As System.Windows.Forms.Panel Friend WithEvents topleftcorner As System.Windows.Forms.Panel Friend WithEvents left As System.Windows.Forms.Panel Friend WithEvents bottom As System.Windows.Forms.Panel Friend WithEvents right As System.Windows.Forms.Panel Friend WithEvents top As System.Windows.Forms.Panel Friend WithEvents pullbs As System.Windows.Forms.Timer Friend WithEvents pullbottom As System.Windows.Forms.Timer Friend WithEvents pullside As System.Windows.Forms.Timer End Class