Visual Basic

Module ToolStripBase

    Public Enum ButtonFunction

        Something1
        Something2

    End Enum

    Public Function CreateButton(ByVal ButtonImage As Image, ByVal ButtonText As String, ByVal ButtonToolTipText As String, ByVal MyFunction As ButtonFunction) As ToolStripButton

        Dim btnSomething As New ToolStripButton
        btnSomething.Text = ButtonText
        btnSomething.Image = ButtonImage
        btnSomething.TextImageRelation = TextImageRelation.ImageAboveText
        btnSomething.ToolTipText = ButtonToolTipText
        Select Case MyFunction
            Case ButtonFunction.Something1
                AddHandler btnSomething.Click, AddressOf SomethingClick
            Case ButtonFunction.Something2
                AddHandler btnSomething.Click, AddressOf Something2Click
        End Select
        Return btnSomething

    End Function

    Private Sub SomethingClick(ByVal sender As System.Object, ByVal e As System.EventArgs)

        MsgBox(CType(sender, ToolStripButton).ToolTipText & ", " & CType(sender, ToolStripButton).Text)

    End Sub

    Private Sub Something2Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

        MsgBox(CType(sender, ToolStripButton).ToolTipText & ", " & CType(sender, ToolStripButton).Text)

    End Sub

End Module

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Dim MyToolStrip As New ToolStrip
        Dim Button1 As ToolStripButton = ToolStripBase.CreateButton(Nothing, "Test 1", "This a test", ButtonFunction.Something1)
        Dim Button2 As ToolStripButton = ToolStripBase.CreateButton(Nothing, "Test 2", "This another test", ButtonFunction.Something1)
        MyToolStrip.Items.Add(Button1)
        MyToolStrip.Items.Add(Button2)
        MyToolStrip.Parent = Me

    End Sub

Dim sfdReport As New SaveFileDialog
sfdReport.Filter = "Excel Files (*.xls)|*.xls"
sfdReport.ShowDialog()
book.save(sfdReport.FileName)

For j = 0 To 5
    Row = sheet.Table.Rows.Add
    'Row.AutoFitHeight = False
    For i = 0 To DataGridView1.Columns.Count - 1
       Row.Cells.Add("test", DataType.[String], "s100")
    Next
Next

For j = 0 To 6

programmervb.netc++ wrote:

So what I am saying is will the code run faster as a dll than the code that is compiled in the executable also this code is shared by executables that will probably be ran concurrently I don't know if that makes a difference. 

I are Troll