'Nice and easy
Public Class CarGrab
   Inherits Script

   Public Sub New()
       BindKey(Keys.Z, AddressOf GrabCarX)
   End Sub

   Private Sub GrabCarX()
        If Not exists(Player.Character) Then Return
        If Not Player.Character.Euphoria.BodyBalance.isBalanced Then
            Player.Character.isRagdoll = False
            Player.Character.Euphoria.Grab.Stop()
        Return
        End If
        If Player.Character.Euphoria.Grab.isGrabbed Then
            Player.Character.Euphoria.Grab.Stop()
            Player.Character.isRagdoll = False
            Return
        End If

    Dim PedX as vehicle = World.GetClosestVehicle(Player.Character.Position, 2.5F)
       If Not Exists(PedX) Then Return

       If Exists(PedX) Then

           Player.Character.Euphoria.BodyBalance.Start(-1)

           With Player.Character.Euphoria.Grab
               .ItemToGrab = PedX
               .UseLeftHand = True
               .UseRightHand = True
               .GrabMethod = euphoria.grabmethod.surface
               .GrabStrength = 11100.0F
               .DontLetGo = True
               .Start()
           End With

           With Player.Character.Euphoria.LeanToPosition
               .Amount = 1.0F
               .ApplyAsForce = True
               .Position = PedX.Position
               .Start()
           End With

       End If
   End Sub
End Class