I think I got the hang of it. What I was not understanding was the Extents. So I created some coordinates in geographic format and then used Reproject.ReprojectPoints to project those coords to a new projection. Once I had the reprojected coordinates I created an Extent and set that to the map. So in pseudo code something like
Map6.ViewExtents = GenerateExtents(Map6.Projection)
Private Function GenerateExtents(ByVal endProj As ProjectionInfo) As Extent
'create the geographic coordinates of the bounding rectangle
'now we reproject the coordinates to the target projection
Reproject.ReprojectPoints(xy, z, KnownCoordinateSystems.Geographic.World.WGS1984, endProj, 0, 2)
'create new extents and return as an object
Dim exts As Extent = New Extent(coords1.X, coords1.Y, coords2.X, coords2.Y)
Return exts
End Function