Jobs
Author: Gehan Fernando Date Submitted: 3/5/2007 Category: Forms Compatibility: .NET This code has been accessed 3836 times.
Email Yourself this snippet:
Rem Add Toolbar Control Into Form Rem Add Following Code
Code
Private Sub ToolStripButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton1.Click ToolStripButton1.Checked = True ToolStripButton3.Checked = False Call Form1_Load(sender, e) Me.Text += ToolStripButton1.Text End Sub Private Sub ToolStripButton3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton3.Click ToolStripButton1.Checked = False ToolStripButton3.Checked = True Call Form1_Load(sender, e) Me.Text += ToolStripButton3.Text End Sub Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Me.Text = "" Me.Text = "Form1 :- " End Sub
