Public Class Form1
     
        Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
            Dim k As New jobs
     
            k.AddJob("writedata", AddressOf writedata)
            k.AddJob("p", AddressOf p)
     
            k.ApplyJobs()
        End Sub
     
        Private Function p() As Boolean
            MessageBox.Show("p")
     
            Return True
        End Function
     
        Private Function writedata() As Boolean
            MessageBox.Show("h")
     
            Return True
        End Function
    End Class
     
     
    Public Class jobs
     
        Public Property Jobs As New List(Of job)
     
        Public Sub ApplyJobs()
            For Each l In Jobs
                If Not l.Invoked Then
                    l.func().Invoke()
                    l.Invoked = True
                End If
            Next
        End Sub
        Public Sub ApplyJob(name As String)
            For Each l In From l1 In From l1 In Jobs Where l1.name = name Where Not l1.Invoked
                l.func().Invoke()
                l.Invoked = True
            Next
        End Sub
        Public Sub ApplyJobs(ParamArray jobnames() As String)
            For Each l In jobnames
                ApplyJob(l)
            Next
        End Sub
     
        Public Sub AddJob(name As String, job As Func(Of Boolean))
            Jobs.Add(New job() With {.name = name, .func = job, .Invoked = False})
        End Sub
        Public Sub AddJob(name As String)
            AddJob(name, AddressOf DefaultJobHandler)
        End Sub
     
        Public Sub RemovedJob(name As String)
            For Each job In Jobs
                If job.name = name Then
                    Jobs.Remove(job)
                End If
            Next
        End Sub
        Public Sub RemoveJobs()
            Jobs.Clear()
        End Sub
     
        Public Sub CopyJob(job1 As String, job2 As String)
            For Each job In Jobs
                If job.name = job1 Then
                    AddJob(job2, job.func)
                End If
            Next
        End Sub
        Public Sub CopyJob(job As String)
            For Each j In Jobs
                If j.name = job Then
                    AddJob(job & "copied", j.func)
                End If
            Next
        End Sub
     
        Private Function DefaultJobHandler() As Boolean
            Return True
        End Function
     
    End Class
     
    Public Class job
        Public Property name As String
        Public Property [func] As Func(Of Boolean)
        Public Property Invoked As Boolean
    End Class