How Can I Put This In Two Vb Net Buttons

Imports Google.Apis.Authentication
Imports Google.Apis.Drive.v1
Imports Google.Apis.Drive.v1.Data

Imports System.Net
' ...

Public Class [MyClass]

	' ...

	''' <summary>
	''' Print a file's metadata.
	''' </summary>
	''' <param name="service">Drive API service instance.</param>
	''' <param name="fileId">ID of the file to print metadata for.</param>
	Public Shared Sub printFile(service As DriveService, fileId As [String])
		Try
			Dim file As File = service.Files.[Get](fileId).Execute()

			Console.WriteLine("Title: " + file.Title)
			Console.WriteLine("Description: " + file.Description)
			Console.WriteLine("MIME type: " + file.MimeType)
		Catch e As Exception
			Console.WriteLine("An error occurred: " + e.Message)
		End Try
	End Sub

	''' <summary>
	''' Download a file and return a string with its content.
	''' </summary>
	''' <param name="authenticator">
	''' Authenticator responsible for creating authorized web requests.
	''' </param>
	''' <param name="file">Drive File instance.</param>
	''' <returns>File's content if successful, null otherwise.</returns>
	Public Shared Function DownloadFile(authenticator As IAuthenticator, file As File) As System.IO.Stream
		If Not [String].IsNullOrEmpty(file.DownloadUrl) Then
			Try
				Dim request As HttpWebRequest = authenticator.CreateHttpWebRequest("GET", New Uri(file.DownloadUrl))
				Dim response As HttpWebResponse = CType(request.GetResponse(), HttpWebResponse)
				If response.StatusCode = HttpStatusCode.OK Then
					Return response.GetResponseStream()
				Else
					Console.WriteLine("An error occurred: " + response.StatusDescription)
					Return Nothing
				End If
			Catch e As Exception
				Console.WriteLine("An error occurred: " + e.Message)
				Return Nothing
			End Try
		Else
			' The file doesn't have any content stored on Drive.
			Return Nothing
		End If
	End Function

	'...

End Class