Lista F

a guest Apr 21st, 2019 88 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. Public Class Form1
  2.     Dim Data As DateTime = Date.Now
  3.     Private Sub RadioButton1_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton1.CheckedChanged
  4.         Timer1.Enabled = True
  7.     End Sub
  9.     Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
  10.         For X = 0 To ListBox1.Items.Count
  11.             If ListBox1.Items.Item.X = Date.Hour Then
  12.                 MsgBox(ACORDA VAGABUNDO)
  13.             End If
  14.         Next
  15.     End Sub
  16. End Class
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand