VERSION 5.00
Begin VB.Form frmDescktop 
   BackColor       =   &H00800080&
   Caption         =   "CG 2004"
   ClientHeight    =   6495
   ClientLeft      =   3090
   ClientTop       =   2895
   ClientWidth     =   8955
   FillColor       =   &H0000FFFF&
   ForeColor       =   &H00008080&
   LinkTopic       =   "Form1"
   ScaleHeight     =   6495
   ScaleWidth      =   8955
   Begin VB.OLE OLE1 
      Class           =   "SoundRec"
      Height          =   495
      Left            =   6480
      OleObjectBlob   =   "frmDescktop.frx":0000
      TabIndex        =   0
      Top             =   1080
      Width           =   495
   End
   Begin VB.Menu mnu 
      Caption         =   "Menu"
      Begin VB.Menu mnuExplorer 
         Caption         =   "Explorator plików"
      End
      Begin VB.Menu mnuprogram 
         Caption         =   "Programy"
         Begin VB.Menu mnutxt 
            Caption         =   "edytor tekstu"
         End
         Begin VB.Menu mnulicz 
            Caption         =   "kalkulator"
         End
      End
      Begin VB.Menu mnuanimation 
         Caption         =   "Gry"
         Begin VB.Menu mnuball 
            Caption         =   "Piłka"
         End
      End
   End
End
Attribute VB_Name = "frmDescktop"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub mnuball_Click()
frmPilka.Show vbModal
End Sub

Private Sub mnuExplorer_Click()
Explorer.Show vbModal
End Sub

Private Sub mnulicz_Click()
frmLiczenie.Show vbModal
End Sub

Private Sub mnusiec_Click()
frmsiec.Show vbModal
End Sub

Private Sub mnutxt_Click()
frmEdytor.Show vbModal
End Sub
