Private Sub labParaGrav_Click()
If labParaGrav.Caption = "Infinite Parachute Low Grav - Off" Then
labParaGrav.Caption = "Infinite Parachute Low Grav - ON"
    Dim Poke(5) As Byte
    Poke(0) = &H90
    Poke(1) = &H90
    Poke(2) = &H90
    Poke(3) = &H90
    Poke(4) = &H90
    Poke(5) = &H90
    WriteNRestore &H580E82, Poke
 Else
 labParaGrav.Caption = "Infinite Parachute Low Grav - Off"
    Dim Poke(5) As Byte
    Poke(0) = &H9F
    Poke(1) = &H85
    Poke(2) = &HBE
    Poke(3) = &H90
    Poke(4) = &H90
    Poke(5) = &H90
    WriteNRestore &H580E82, Poke
End If
End Sub