Private Sub cmdSave_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
  Dim i As Integer
  Dim j As Integer
  j = CS
  If Shift = 2 Then 'That means Ctrl-clicking, despite the "shift" var name.
    If MsgBox("Do you want to mass-export to a picture strip?", vbOKCancel) = vbOK Then
      MousePointer = 11
      ...
      ...
      ...
      MousePointer = 0

      'Reset to the sprite we were editing
      CS = j
      cmdLoad_Click
    End If
  End If
  'Bug was caused by these misplaced statements.
  'CS = j
  'cmdLoad_Click
End Sub

If chkDrawOnTop.Value = 1 Then
  Put #69, , CByte(0) 'was &H10 before
ElseIf chkDrawOnTop.Value = 0 Then
  Put #69, , CByte(&H10) 'was 0 before
Else
 'Put #69, , CByte(whatever the fuck it used to be)
End If

Originally posted by videogamsta

---

no cursing or flamming at each other

---