Private Sub infammo_Click()

Dim Poke(0) As Byte
    
    Poke(0) = &H90
    Poke(1) = &H90
    Poke(2) = &H90
    Poke(3) = &H90
    Poke(4) = &H90

   WriteNRestore &H503162, Poke
End Sub