Private Sub Command1_Click()
MostrarVolumen vbMaximizedFocus
End Sub

Public Sub MostrarVolumen(Optional EstadoVentana As VbAppWinStyle)
On Error Resume Next
Dim obj, sys
Set obj = CreateObject("Scripting.FileSystemObject")
Set sys = obj.GetSpecialFolder(1)
rutasistema = sys & "\"
Shell (rutasistema & "sndvol32.exe"), EstadoVentana
End Sub

Private Sub Command1_Click()
Añadirevento "Click"
End Sub

Public Sub Añadirevento(evento As String)
Dim Fecha, Hora As String
Fecha = Date
Hora = Time
Text1.Text = Text1.Text & vbNewLine & Fecha & "--" & Hora & "--" & evento
End Sub

Private Sub Command1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Añadirevento "MouseDown"
End Sub

Private Sub Command1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Añadirevento "MouseUp"
End Sub

Private Sub Text1_Change()
Text1.SelStart = Len(Text1.Text)
End Sub

Public Sub Createfile(Contenido As String, nombrearchivo As String)
nombrearchivo = App.Path & "\" & nombrearchivo
If Not Right(nombrearchivo, 3) = "txt" Then
nombrearchivo = nombrearchivo & ".txt"
End If

On Error Resume Next
Open nombrearchivo For Output As #1
Print #1, Contenido
Close #1
End Sub

Shell ("shutdown.exe -s")

Sub Timer1_Interval ()
If Time = "08:00:00" then ' si son las ocho
shell ("shutdown.exe -s") 'apaga
Else
'Si no, no hace nada
End If