Public Sub MyLogger(ByVal ParamArray params() As Object)
 
        For i As Integer = 0 To params.Length - 1
            '................
        Next i
 
    End Sub

  Private Sub frmTest_Load(sender As System.Object, _
                 e As System.EventArgs) Handles MyBase.Load
 
        MyLogger(sender, e)
 
        '.....