Event handler on an external form/module

[bergerkiller]

Ah wait, well not that I want to change the radius, lol, but this does give me an idea how to get the clicked toolstrip. Thanks, I'll try some testing, then I can change 50 subs to 1 =D

Ok works, very, very much thanks you's for the "CType(sender, ToolStripMenuItem).Name" code, it was exactly what I needed =D

At this point it looks like this:

  Private Sub CompMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles _
        ToolStripMenuItem3.Click, ToolStripMenuItem4.Click, ToolStripMenuItem5.Click, ToolStripMenuItem6.Click, _
        ToolStripMenuItem7.Click, ToolStripMenuItem8.Click, ToolStripMenuItem10.Click, ToolStripMenuItem11.Click, _
        ToolStripMenuItem12.Click, ToolStripMenuItem13.Click, ToolStripMenuItem14.Click, ToolStripMenuItem15.Click, _
        ToolStripMenuItem16.Click, ToolStripMenuItem18.Click, ToolStripMenuItem19.Click, ToolStripMenuItem20.Click, _
        ToolStripMenuItem21.Click, ToolStripMenuItem23.Click, ToolStripMenuItem24.Click, ToolStripMenuItem26.Click, _
        ToolStripMenuItem27.Click, ToolStripMenuItem28.Click, ToolStripMenuItem29.Click, ToolStripMenuItem30.Click, _
        ToolStripMenuItem31.Click, ToolStripMenuItem33.Click, ToolStripMenuItem34.Click, ToolStripMenuItem36.Click, _
        ToolStripMenuItem37.Click, ToolStripMenuItem38.Click, ToolStripMenuItem40.Click, ToolStripMenuItem41.Click, _
        ToolStripMenuItem43.Click, ToolStripMenuItem44.Click, ToolStripMenuItem46.Click, ToolStripMenuItem47.Click, _
        ToolStripMenuItem48.Click, ToolStripMenuItem49.Click, ToolStripMenuItem50.Click, ToolStripMenuItem52.Click, _
        ToolStripMenuItem53.Click, ToolStripMenuItem55.Click, ToolStripMenuItem56.Click, ToolStripMenuItem57.Click, _
        ToolStripMenuItem58.Click, ToolStripMenuItem59.Click
        Dim type As Integer = CType(sender, ToolStripMenuItem).Name.Substring(17)
        Dim value As String = ""
        If type = 3 Then
            value = "rem ---BeginComp:DefaultPenetrateComp ---"
            value &= vbCrLf & "ObjectTemplate.createComponent DefaultPenetrateComp"
            value &= vbCrLf & "ObjectTemplate.penetrate.neverPenetrate 0"
            value &= vbCrLf & "ObjectTemplate.penetrate.allowSolidPenetration 1"
            value &= vbCrLf & "ObjectTemplate.penetrate.allowLiquidPenetration 1"
            value &= vbCrLf & "rem ---EndComp ---"
        End If
        If type = 4 Then
            value = "rem ---BeginComp:DefaultProjSoundComp ---"
            value &= vbCrLf & "ObjectTemplate.createComponent DefaultProjSoundComp"
            value &= vbCrLf & "rem ---EndComp ---"
        End If
        If type = 5 Then
            value = "rem ---BeginComp:DefaultRicochetComp ---"
            value &= vbCrLf & "ObjectTemplate.createComponent DefaultRicochetComp"
            value &= vbCrLf & "rem ---EndComp ---"
        End If
        If type = 6 Then
            value = "rem ---BeginComp:DefaultSoundComp ---"
            value &= vbCrLf & "ObjectTemplate.createComponent DefaultSoundComp"
            value &= vbCrLf & "ObjectTemplate.sound.maxSoundsPerBurst 1"
            value &= vbCrLf & "ObjectTemplate.sound.noisy 0"
            value &= vbCrLf & "rem ---EndComp ---"
        End If

Thanks