Private Sub cmdInfAmmoOn_Click()

    WriteByte &H503162, &H90
    WriteByte &H503163, &H90
    WriteByte &H503164, &H90
    WriteByte &H503165, &H90
    WriteByte &H503166, &H90
    WriteByte &H503167, &H90
End Sub

Private Sub cmdInfAmmoOff_Click()

    WriteByte &H503162, &HFE
    WriteByte &H503163, &H8D
    WriteByte &H503164, &HEB
    WriteByte &H503165, &HBF
    WriteByte &H503166, &H0
    WriteByte &H503167, &H0
End Sub

Private Sub cmdgravityon_Click()

    WriteByte &H580E7E, &H90
    WriteByte &H580E7F, &H90
    WriteByte &H580E71A, &H90
    WriteByte &H580E72A, &H90
   
End Sub

Private Sub cmdgravityoff_Click()

    WriteByte &H580E7E, &H80
    WriteByte &H580E7F, &H7B
    WriteByte &H580E71A, &H68
    WriteByte &H580E72A, &H1
    
End Sub