AND HERE is the solution
Dim XRekenpunt As Object = dtSwungRekenpunt.Rows.Item(0).Item("X")
Dim YRekenpunt As Object = dtSwungRekenpunt.Rows.Item(0).Item("Y")
myVenster.ViewExtents.MinX = XRekenpunt - 20
myVenster.ViewExtents.MaxX = XRekenpunt + 20
myVenster.ViewExtents.MinY = YRekenpunt - 20 * (myVenster.Size.Height / myVenster.Size.Width)
myVenster.ViewExtents.MaxY = YRekenpunt + 20 * (myVenster.Size.Height / myVenster.Size.Width)
myVenster.Refresh()