Public Class Form1
    Inherits System.Windows.Forms.Form
 
    Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click
        If RichTextBox1.Text = "" Then
            MessageBox.Show("No hay nada para copiar")
            Return
        End If
        Clipboard.SetText(RichTextBox1.Text)
        MessageBox.Show("Texto copiado al clipboard")
    End Sub
 
    Private Sub Label2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label2.Click
        If RichTextBox1.Text = "" Then
            MessageBox.Show("No hay nada que borrar")
            Return
        End If
        RichTextBox1.Clear()
    End Sub
 
    Private Sub Label3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label3.Click
        If SaveFileDialog1.ShowDialog = DialogResult.OK Then
            RichTextBox1.SaveFile(SaveFileDialog1.FileName, RichTextBoxStreamType.PlainText)
        End If
        Form1.ActiveForm().Text() = "Editor de Texto " + SaveFileDialog1.FileName
    End Sub
 
    Private Sub Label4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label4.Click
        If OpenFileDialog1.ShowDialog = DialogResult.OK Then
            RichTextBox1.LoadFile(OpenFileDialog1.FileName, RichTextBoxStreamType.PlainText)
        End If
        Form1.ActiveForm().Text() = "Editor de texto " + OpenFileDialog1.FileName
    End Sub
 
    Private Sub Label5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label5.Click
        Timer1.Start()
    End Sub
 
    Private Sub Label6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label6.Click
        WindowState = 1
    End Sub
 
    Private Sub PictureBox2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox2.Click
        MessageBox.Show("Texbook creado por BlazeFire")
    End Sub
 
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Static i As Double = 1.0
        i -= 0.08
        Me.Opacity = i
        If Me.Opacity = 0 Then
            CType(sender, Timer).Stop()
            End
        End If
    End Sub
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Timer2.Start()
        Timer3.Start()
    End Sub
 
    Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
        Dim cantidad As Integer
        cantidad = Len(RichTextBox1.Text)
        Label7.Text = (cantidad)
    End Sub
 
    Private Sub Timer3_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer3.Tick
        Label8.Text = Format$(Now, "dd/MM/yyyy hh:mm:ss")
    End Sub
 
    Private Sub Label8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label8.Click
        Timer3.Start()
    End Sub
End Class