VERSION 4.00
Begin VB.Form Form1 
   BackColor       =   &H00FFFFFF&
   Caption         =   " Attractors"
   ClientHeight    =   7230
   ClientLeft      =   2745
   ClientTop       =   1890
   ClientWidth     =   9345
   ForeColor       =   &H00FF0000&
   Height          =   7920
   Left            =   2685
   LinkTopic       =   "Form1"
   ScaleHeight     =   7230
   ScaleWidth      =   9345
   Top             =   1260
   Width           =   9465
   Begin VB.Menu MenuAction 
      Caption         =   "&Actions"
      Begin VB.Menu MenuLorentz 
         Caption         =   "Lorentz"
      End
      Begin VB.Menu MenuRoessler 
         Caption         =   "Roessler"
      End
      Begin VB.Menu MenuQuitter 
         Caption         =   "Quit"
      End
   End
End
Attribute VB_Name = "Form1"
Attribute VB_Creatable = False
Attribute VB_Exposed = False
Private Sub Command1_Click()
  Unload Me
  End
End Sub


Private Sub Command1_KeyPress(KeyAscii As Integer)
  If (KeyAscii = Asc("q")) Or (KeyAscii = Asc("Q")) Then
    Unload Me
    End
  End If
End Sub


Private Sub Command2_Click()
  RunRoessler
End Sub


Private Sub Command3_Click()
  RunLorentz
End Sub


Private Sub Form_Load()
  MaxX = Form1.Width
  MaxY = Form1.Height - 700
End Sub

Private Sub MenuLorentz_Click()
  RunLorentz
End Sub


Private Sub MenuQuitter_Click()
  Unload Me
  End
End Sub

Private Sub MenuRoessler_Click()
  RunRoessler
End Sub