Imports System
 
Public Module Module1
	Public Sub Main()
		Metodo()
		Console.WriteLine()
		Metodo2()
	End Sub
	Private Sub Metodo()
		Dim MeuTipo As Tipo
 
		For i As Integer = 0 To 100
			MeuTipo = New Tipo
			MeuTipo.FacaAlgumaCoisa()
		Next
	End Sub
 
	Private Sub Metodo2()    
		For i As Integer = 0 To 100
			Dim MeuTipo As New Tipo
			MeuTipo.FacaAlgumaCoisa()
		Next
	End Sub
End Module
 
Public Class Tipo
	Public Sub FacaAlgumaCoisa()
		Console.Write("x")
	End Sub
End Class
 
'https://pt.stackoverflow.com/q/172697/101

SW1wb3J0cyBTeXN0ZW0KCQkJCQpQdWJsaWMgTW9kdWxlIE1vZHVsZTEKCVB1YmxpYyBTdWIgTWFpbigpCgkJTWV0b2RvKCkKCQlDb25zb2xlLldyaXRlTGluZSgpCgkJTWV0b2RvMigpCglFbmQgU3ViCglQcml2YXRlIFN1YiBNZXRvZG8oKQoJCURpbSBNZXVUaXBvIEFzIFRpcG8KCQoJCUZvciBpIEFzIEludGVnZXIgPSAwIFRvIDEwMAoJCQlNZXVUaXBvID0gTmV3IFRpcG8KCQkJTWV1VGlwby5GYWNhQWxndW1hQ29pc2EoKQoJCU5leHQKCUVuZCBTdWIKCQoJUHJpdmF0ZSBTdWIgTWV0b2RvMigpICAgIAoJCUZvciBpIEFzIEludGVnZXIgPSAwIFRvIDEwMAoJCQlEaW0gTWV1VGlwbyBBcyBOZXcgVGlwbwoJCQlNZXVUaXBvLkZhY2FBbGd1bWFDb2lzYSgpCgkJTmV4dAoJRW5kIFN1YgpFbmQgTW9kdWxlCgpQdWJsaWMgQ2xhc3MgVGlwbwoJUHVibGljIFN1YiBGYWNhQWxndW1hQ29pc2EoKQoJCUNvbnNvbGUuV3JpdGUoIngiKQoJRW5kIFN1YgpFbmQgQ2xhc3MKCidodHRwczovL3B0LnN0YWNrb3ZlcmZsb3cuY29tL3EvMTcyNjk3LzEwMQ==