Public Module MyReflection
Public Function GetInstance(ByVal Assembly As Assembly, ByVal ClassName As String) As Object
Try
Return Activator.CreateInstance(Assembly.GetType(ClassName))
Catch ex As Exception
'If An Error Is Occured then Return Nothing
Return Nothing
End Try
End Function
Public Function GetInstance(ByVal Assembly As Assembly, ByVal ClassName As String, ByVal Args() As Object) As Object
Try
Dim Attributes() As Object = {}
Return Activator.CreateInstance(Assembly.GetType(ClassName), Args, Attributes)
Catch ex As Exception
'If An Error Is Occured then Return Nothing
Return Nothing
End Try
End Function
End Module