Public Class Form1     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click         Timer1.Start()     End Sub     Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick         MsgBox("fonter te ha hackeado", MsgBoxStyle.Critical, "error")     End Sub End Class