If cPadMain.PadHistoryList.Where(Function(h) h.IsNew = True).Count <> 0 Then 
    Dim cPadHistoryData As New PadHistoryData(Me.ConnectionStringSettings) 
    For Each ph As PadHistory In cPadMain.PadHistoryList.Where(Function(h) h.IsNew = True) 
        cPadHistoryData.Insert(ph)
    Next 
End If

Dim stackFrame As New Diagnostics.StackFrame(1)
Dim sProcedure As String = stackFrame.GetMethod.Name
Dim sModuleName As String = stackFrame.GetMethod.DeclaringType.FullName

Public Function IsServiceRuning(ByVal scName As String) As Boolean

    Dim scServices() As ServiceController
    scServices = ServiceController.GetServices
    Dim sc As ServiceController = scServices.First(Function(s) s.ServiceName = scName)
    If sc.Status = ServiceControllerStatus.Running Then
        Return True
    End If

End Function

Public Sub GetDatabaseTableColumns()
    Try
        Dim table As DataTable
        Using cn As New OleDb.OleDbConnection(My.Settings.conStrOneWay)
            cn.Open()
            Dim restrictionValues As String() = New String() {Nothing, Nothing, "Quotes", Nothing}
            table = cn.GetOleDbSchemaTable(OleDb.OleDbSchemaGuid.Columns, restrictionValues)
            cn.Close()
        End Using

        Call DisplayData(table)

    Catch ex As Exception
        Throw ex
    End Try
End Sub

Private Sub DisplayData(ByVal table As DataTable)
    For i = 0 To table.Rows.Count - 1
        Dim msg As String = table.Rows(i)!COLUMN_NAME.ToString & vbTab & table.Rows(i)!DATA_TYPE.ToString
        Console.WriteLine(msg)
        Debug.Print(msg)
    Next i
End Sub

Dim blankLine As New CodeSnippetTypeMember("")
targetClass.Members.Add(blankLine) 

When creating the Property Set Statements I have found that the Set does not include the (ByRef value as string) part.
However when using the class for the first time, just press return after the Class name and all of these are inserted automatically.

Steve

Imports Microsoft.VisualBasic.CallType

Public Class TestJump
    Inherits Test

    Delegate Sub T()

    Public Overrides Sub RunTest()

        Try
            'Call TestBack()
            Dim st As New StackFrame
            Me.Name = st.GetMethod.ReflectedType.Name
            Dim op As T = AddressOf TestBack
            op.Invoke()
            Call TestDelegate(AddressOf TestMe.TestBack)
            Me.Result = True

        Catch ex As Exception
            Me.Result = False
            Me.FailMessage = ex.Message
        End Try

    End Sub

    Private Sub TestDelegate(ByVal op As T)
        op.Invoke()
    End Sub

End Class

Module TestMe
    Public Sub TestBack()
        Debug.Print("Here123")
        'Debug.Close()
    End Sub
End Module