Private Sub Command1_Click()
If Timer1 = Enabled Then
Timer1 = disabled
Else
Timer1 = Enabled
End If
End Sub

Private Sub Timer1_Timer()
slot = ReadByte(&H6E30E4)
WriteByte &H6EF0D3 + 49377 * (slot - 1), 2
End Sub