Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click


        If ReadByte(&H503162) = &H90 Then

            Dim Poke(5) As Byte


            Poke(0) = &HFE
            Poke(1) = &H8D
            Poke(2) = &HEB
            Poke(3) = &HBF
            Poke(4) = &H0
            Poke(5) = &H0

            WriteNRestore(&H503162, Poke)

        Else

            WriteByte(&H503162, &H90)
            WriteByte(&H503163, &H90)
            WriteByte(&H503164, &H90)
            WriteByte(&H503165, &H90)
            WriteByte(&H503166, &H90)
            WriteByte(&H503167, &H90)

        End If
    End Sub

End Class