VERSION 5.00
Begin VB.Form Form2 
   BorderStyle     =   0  'None
   Caption         =   "Form2"
   ClientHeight    =   10830
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   15315
   Icon            =   "Form2.frx":0000
   LinkTopic       =   "Form2"
   Picture         =   "Form2.frx":122FE
   ScaleHeight     =   10830
   ScaleWidth      =   15315
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  'CenterScreen
   WindowState     =   2  'Maximized
   Begin VB.Timer Timer1 
      Interval        =   1
      Left            =   3120
      Top             =   1320
   End
   Begin VB.Label Label7 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      Caption         =   "12:40:00 p.m."
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   24
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FFFFFF&
      Height          =   615
      Left            =   3480
      TabIndex        =   26
      Top             =   2760
      Visible         =   0   'False
      Width           =   3255
   End
   Begin VB.Label Label6 
      BackStyle       =   0  'Transparent
      Caption         =   "06:40:00 a.m."
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   24
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H8000000B&
      Height          =   495
      Left            =   120
      TabIndex        =   25
      Top             =   240
      Visible         =   0   'False
      Width           =   3135
   End
   Begin VB.Label Label37 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      Caption         =   "05:01:00 p.m."
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   24
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FFFFFF&
      Height          =   615
      Left            =   10680
      TabIndex        =   24
      Top             =   2400
      Visible         =   0   'False
      Width           =   3255
   End
   Begin VB.Label Label36 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      Caption         =   "05:00:00 p.m."
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   24
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FFFFFF&
      Height          =   615
      Left            =   10680
      TabIndex        =   23
      Top             =   1800
      Visible         =   0   'False
      Width           =   3255
   End
   Begin VB.Label Label9 
      Alignment       =   2  'Center
      BackColor       =   &H00FFFFFF&
      BackStyle       =   0  'Transparent
      BeginProperty Font 
         Name            =   "Cambria"
         Size            =   90
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FFFFFF&
      Height          =   2295
      Left            =   1080
      TabIndex        =   22
      Top             =   4080
      Width           =   13335
   End
   Begin VB.Label Label11 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      Caption         =   "12:15:00 p.m."
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   24
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FFFFFF&
      Height          =   615
      Left            =   3480
      TabIndex        =   21
      Top             =   2280
      Visible         =   0   'False
      Width           =   3135
   End
   Begin VB.Label Label12 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      Caption         =   "06:50:00 a.m."
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   24
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FFFFFF&
      Height          =   615
      Left            =   0
      TabIndex        =   20
      Top             =   720
      Visible         =   0   'False
      Width           =   3135
   End
   Begin VB.Label Label13 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      Caption         =   "07:35:00 a.m."
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   24
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FFFFFF&
      Height          =   615
      Left            =   0
      TabIndex        =   19
      Top             =   1200
      Visible         =   0   'False
      Width           =   3135
   End
   Begin VB.Label Label14 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      Caption         =   "08:20:00 a.m."
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   24
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FFFFFF&
      Height          =   615
      Left            =   0
      TabIndex        =   18
      Top             =   1680
      Visible         =   0   'False
      Width           =   3135
   End
   Begin VB.Label Label15 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      Caption         =   "09:05:00 a.m."
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   24
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FFFFFF&
      Height          =   615
      Left            =   0
      TabIndex        =   17
      Top             =   2160
      Visible         =   0   'False
      Width           =   3135
   End
   Begin VB.Label Label17 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      Caption         =   "10:15:00 a.m."
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   24
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FFFFFF&
      Height          =   615
      Left            =   3480
      TabIndex        =   16
      Top             =   360
      Visible         =   0   'False
      Width           =   3135
   End
   Begin VB.Label Label18 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      Caption         =   "11:35:00 a.m."
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   24
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FFFFFF&
      Height          =   615
      Left            =   3480
      TabIndex        =   15
      Top             =   1320
      Visible         =   0   'False
      Width           =   3135
   End
   Begin VB.Label Label19 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      Caption         =   "12:10:00 a.m."
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   24
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FFFFFF&
      Height          =   615
      Left            =   3480
      TabIndex        =   14
      Top             =   1800
      Visible         =   0   'False
      Width           =   3135
   End
   Begin VB.Label Label22 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      Caption         =   "01:05:00 p.m."
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   24
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FFFFFF&
      Height          =   615
      Left            =   7560
      TabIndex        =   13
      Top             =   0
      Visible         =   0   'False
      Width           =   3015
   End
   Begin VB.Label Label23 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      Caption         =   "01:40:00 p.m."
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   24
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FFFFFF&
      Height          =   615
      Left            =   7560
      TabIndex        =   12
      Top             =   600
      Visible         =   0   'False
      Width           =   3015
   End
   Begin VB.Label Label24 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      Caption         =   "02:15:00 p.m."
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   24
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FFFFFF&
      Height          =   615
      Left            =   7560
      TabIndex        =   11
      Top             =   1200
      Visible         =   0   'False
      Width           =   3015
   End
   Begin VB.Label Label25 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      Caption         =   "02:50:00 p.m."
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   24
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FFFFFF&
      Height          =   615
      Left            =   7560
      TabIndex        =   10
      Top             =   1800
      Visible         =   0   'False
      Width           =   3015
   End
   Begin VB.Label Label26 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      Caption         =   "03:10:00 p.m."
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   24
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FFFFFF&
      Height          =   615
      Left            =   7560
      TabIndex        =   9
      Top             =   2400
      Visible         =   0   'False
      Width           =   3015
   End
   Begin VB.Label Label27 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      Caption         =   "03:45:00 p.m."
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   24
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FFFFFF&
      Height          =   615
      Left            =   7560
      TabIndex        =   8
      Top             =   3000
      Visible         =   0   'False
      Width           =   3015
   End
   Begin VB.Label Label28 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      Caption         =   "04:20:00 p.m."
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   24
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FFFFFF&
      Height          =   615
      Left            =   10800
      TabIndex        =   7
      Top             =   0
      Visible         =   0   'False
      Width           =   3015
   End
   Begin VB.Label Label29 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      Caption         =   "05:00:00 p.m."
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   24
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FFFFFF&
      Height          =   615
      Left            =   10800
      TabIndex        =   6
      Top             =   600
      Visible         =   0   'False
      Width           =   3015
   End
   Begin VB.Label Label30 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      Caption         =   "05:40:00 p.m."
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   24
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FFFFFF&
      Height          =   615
      Left            =   10800
      TabIndex        =   5
      Top             =   1200
      Visible         =   0   'False
      Width           =   3015
   End
   Begin VB.Label Label16 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      Caption         =   "09:50:00 a.m."
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   24
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FFFFFF&
      Height          =   615
      Left            =   0
      TabIndex        =   4
      Top             =   2640
      Visible         =   0   'False
      Width           =   3135
   End
   Begin VB.Label Label35 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      Caption         =   "10:55:00 a.m."
      BeginProperty Font 
         Name            =   "Cambria"
         Size            =   24
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FFFFFF&
      Height          =   615
      Left            =   3240
      TabIndex        =   3
      Top             =   840
      Visible         =   0   'False
      Width           =   3495
   End
   Begin VB.Label Label1 
      BackStyle       =   0  'Transparent
      BeginProperty Font 
         Name            =   "Cambria"
         Size            =   90
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FFFFFF&
      Height          =   2895
      Left            =   2640
      TabIndex        =   2
      Top             =   6000
      Width           =   13215
   End
   Begin VB.Label Label2 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      Caption         =   "Salir"
      BeginProperty Font 
         Name            =   "Cambria"
         Size            =   48
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FFFFFF&
      Height          =   1215
      Left            =   8880
      TabIndex        =   1
      Top             =   8400
      Width           =   2535
   End
   Begin VB.Label Label3 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      Caption         =   "Escritorio"
      BeginProperty Font 
         Name            =   "Cambria"
         Size            =   48
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FFFFFF&
      Height          =   1335
      Left            =   2880
      TabIndex        =   0
      Top             =   8400
      Width           =   4575
   End
End
Attribute VB_Name = "Form2"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
 ' Constantes para los flags

 '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

 '  look for application specific association
 Private Const SND_APPLICATION = &H80
 '  name is a WIN.INI [sounds] entry
 Private Const SND_ALIAS = &H10000
 '  name is a WIN.INI [sounds] entry identifier
 Private Const SND_ALIAS_ID = &H110000
 '  play asynchronously
 Private Const SND_ASYNC = &H1
   '  play synchronously (default)
 Private Const SND_SYNC = &H0

 '  name is a file name
 Private Const SND_FILENAME = &H20000
 '  loop the sound until next sndPlaySound
 Private Const SND_LOOP = &H8
 '  lpszSoundName points to a memory file
 Private Const SND_MEMORY = &H4
 '  silence not default, if sound not found
 Private Const SND_NODEFAULT = &H2
  '  don't stop any currently playing sound
 Private Const SND_NOSTOP = &H10
  '  don't wait if the driver is busy
 Private Const SND_NOWAIT = &H2000
  '  purge non-static events for task
 Private Const SND_PURGE = &H40
  '  name is a resource name or atom
 Private Const SND_RESOURCE = &H40004

 
 Private Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" ( _
     ByVal lpszName As String, _
     ByVal hModule As Long, _
     ByVal dwFlags As Long) As Long

Private Sub Command1_Click()
  
End Sub

 Sub Reproducir_WAV(Archivo As String, Flags As Long)

     Dim ret As Long
     ' Le pasa el path y los flags al api
     ret = PlaySound(Archivo, ByVal 0&, Flags)
 End Sub
Sub sonar0()
    'For r = 1 To Text9
        Call Reproducir_WAV("./Sonidos/00-7-00-Devocional.wav", SND_FILENAME Or SND_ASYNC Or SND_NODEFAULT)
    'Next r
   ' r = r + 20
End Sub
Sub sonar()
    'For r = 1 To Text9
        Call Reproducir_WAV("./Sonidos/01-7-20.wav", SND_FILENAME Or SND_ASYNC Or SND_NODEFAULT)
    'Next r
   ' r = r + 20
End Sub
Sub sonar1()
    'For r = 1 To Text9
        Call Reproducir_WAV("./Sonidos/02-7-55.wav", SND_FILENAME Or SND_ASYNC Or SND_NODEFAULT)
    'Next r
   ' r = r + 20
End Sub
Sub sonar2()
    'For r = 1 To Text9
        Call Reproducir_WAV("./Sonidos/03-8-30.wav", SND_FILENAME Or SND_ASYNC Or SND_NODEFAULT)
    'Next r
   ' r = r + 20
End Sub
Sub sonar3()
    'For r = 1 To Text9
        Call Reproducir_WAV("./Sonidos/04-9-05.wav", SND_FILENAME Or SND_ASYNC Or SND_NODEFAULT)
    'Next r
   ' r = r + 20
End Sub
Sub sonar4()
    'For r = 1 To Text9
        Call Reproducir_WAV("./Sonidos/05-9-40-Recreo.wav", SND_FILENAME Or SND_ASYNC Or SND_NODEFAULT)
    'Next r
   ' r = r + 20
End Sub
Sub sonar5()
    'For r = 1 To Text9
        Call Reproducir_WAV("./Sonidos/06-10-10.wav", SND_FILENAME Or SND_ASYNC Or SND_NODEFAULT)
    'Next r
   ' r = r + 20
End Sub
Sub sonar6()
    'For r = 1 To Text9
        Call Reproducir_WAV("./Sonidos/07-10-45.wav", SND_FILENAME Or SND_ASYNC Or SND_NODEFAULT)
    'Next r
   ' r = r + 20
End Sub
Sub sonar7()
    'For r = 1 To Text9
        Call Reproducir_WAV("./Sonidos/08-11-20.wav", SND_FILENAME Or SND_ASYNC Or SND_NODEFAULT)
    'Next r
   ' r = r + 20
End Sub
Sub sonar8()
    'For r = 1 To Text9
        Call Reproducir_WAV("./Sonidos/09-11-55-Aseo.wav", SND_FILENAME Or SND_ASYNC Or SND_NODEFAULT)
    'Next r
   ' r = r + 20
End Sub
Sub sonar9()
    'For r = 1 To Text9
        Call Reproducir_WAV("./Sonidos/10-12-00.wav", SND_FILENAME Or SND_ASYNC Or SND_NODEFAULT)
    'Next r
   ' r = r + 20
End Sub
Sub sonar10()
    'For r = 1 To Text9
        Call Reproducir_WAV("./Sonidos/11-12-40.wav", SND_FILENAME Or SND_ASYNC Or SND_NODEFAULT)
    'Next r
   ' r = r + 20
End Sub
Sub sonar11()
    'For r = 1 To Text9
        Call Reproducir_WAV("./Sonidos/12-01-05.wav", SND_FILENAME Or SND_ASYNC Or SND_NODEFAULT)
    'Next r
   ' r = r + 20
End Sub

Sub sonar12()
    'For r = 1 To Text9
        Call Reproducir_WAV("./Sonidos/13-01-40.wav", SND_FILENAME Or SND_ASYNC Or SND_NODEFAULT)
    'Next r
   ' r = r + 20
End Sub
Sub sonar13()
    'For r = 1 To Text9
        Call Reproducir_WAV("./Sonidos/14-02-15.wav", SND_FILENAME Or SND_ASYNC Or SND_NODEFAULT)
    'Next r
   ' r = r + 20
End Sub
Sub sonar14()
    'For r = 1 To Text9
        Call Reproducir_WAV("./Sonidos/15-02-50-Recreo.wav", SND_FILENAME Or SND_ASYNC Or SND_NODEFAULT)
    'Next r
   ' r = r + 20
End Sub
Sub sonar15()
    'For r = 1 To Text9
        Call Reproducir_WAV("./Sonidos/16-03-10.wav", SND_FILENAME Or SND_ASYNC Or SND_NODEFAULT)
    'Next r
   ' r = r + 20
End Sub
Sub sonar16()
    'For r = 1 To Text9
        Call Reproducir_WAV("./Sonidos/17-03-45.wav", SND_FILENAME Or SND_ASYNC Or SND_NODEFAULT)
    'Next r
   ' r = r + 20
End Sub
Sub sonar17()
    'For r = 1 To Text9
        Call Reproducir_WAV("./Sonidos/18-04-20.wav", SND_FILENAME Or SND_ASYNC Or SND_NODEFAULT)
    'Next r
   ' r = r + 20
End Sub
Sub sonar18()
    'For r = 1 To Text9
        Call Reproducir_WAV("./Sonidos/19-05-00.wav", SND_FILENAME Or SND_ASYNC Or SND_NODEFAULT)
    'Next r
   ' r = r + 20
End Sub
Sub sonar19()
    'For r = 1 To Text9
        Call Reproducir_WAV("./Sonidos/ringin.wav", SND_FILENAME Or SND_ASYNC Or SND_NODEFAULT)
    'Next r
   ' r = r + 20
End Sub
Private Sub Command4_Click()
   
End Sub

Private Sub op_Click(Index As Integer)
    Select Case Index
        Case 1
            MsgBox "Por xxx", 32, "Autor"
        Case 2
            Set Form1 = Nothing
            End
    End Select
End Sub

Private Sub Form_Load()
  Timer1.Enabled = True
    Timer1.Interval = 1
End Sub

Private Sub Label2_Click()
End
End Sub

Private Sub Label3_Click()
Me.WindowState = 1
End Sub

Private Sub Timer1_Timer()
     Label9.Caption = Time
    If Label9 = Label6 Then sonar0
    If Label9 = Label12 Then sonar
    If Label9 = Label13 Then sonar1
    If Label9 = Label14 Then sonar2
    If Label9 = Label15 Then sonar3
    If Label9 = Label16 Then sonar4
    If Label9 = Label17 Then sonar5
    If Label9 = Label18 Then sonar7
    If Label9 = Label19 Then sonar8
    If Label9 = Label11 Then sonar9
    If Label9 = Label22 Then sonar11
    If Label9 = Label7 Then sonar10
    If Label9 = Label23 Then sonar12
    If Label9 = Label24 Then sonar13
    If Label9 = Label25 Then sonar14
    If Label9 = Label26 Then sonar15
    If Label9 = Label27 Then sonar16
    If Label9 = Label28 Then sonar17
    If Label9 = Label29 Then sonar18
    If Label9 = Label30 Then sonar19
    If Label9 = Label35 Then sonar6
    If Label9 = Label36 Then Form3.Show
    If Label9 = Label37 Then Form4.Show
    Label1.Caption = Date
   
End Sub


