Help converting vb6 to vb.net 2008

Function EnumWinProc(ByVal hwnd As Integer, ByVal lParam As Integer) As Integer
		Dim k As Integer
		Dim sName As String
		
		If GetParent(hwnd) = 0 Then
			
			'If IsWindowVisible(hwnd) And GetParent(hwnd) = 0 Then
			sName = Space(128)
			k = GetWindowText(hwnd, sName, 128)
			If k > 0 Then
				sName = Left(sName, k)
				If lParam = 0 Then sName = UCase(sName)
				
				If Trim(sName) = Trim(sPattern) Then
					hFind = hwnd
					EnumWinProc = 0
					Exit Function
				End If
			End If
		End If
		EnumWinProc = 1
	End Function
	
	Public Function FindWindowWild(ByRef sWild As String, Optional ByRef bMatchCase As Boolean = True) As Integer
		sPattern = sWild
		If Not bMatchCase Then sPattern = UCase(sPattern)
		
		'UPGRADE_WARNING: Add a delegate for AddressOf EnumWinProc Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="E9E157F7-EF0C-4016-87B7-7D7FBBC6EE08"'
		EnumWindows(AddressOf EnumWinProc, bMatchCase)
		FindWindowWild = hFind
	End Function