Digital Clock (VB TUT)

VISUAL BASIC 2008 TUTORIAL!

Video Tutorial

Watch on Youtube

Codes

Public Class Form1 #Region " Global Variables " Dim Point As New System.Drawing.Point() Dim X, Y As Integer #End Region #Region " GUI " Private Sub Main_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseMove, Label1.MouseMove If e.Button = MouseButtons.Left Then Point = Control.MousePosition Point.X = Point.X - (X) Point.Y = Point.Y - (Y) Me.Location = Point End If End Sub Private Sub Main_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseDown, Label1.MouseDown X = Control.MousePosition.X - Me.Location.X Y = Control.MousePosition.Y - Me.Location.Y End Sub #End Region Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Me.TransparencyKey = Me.BackColor Timer1.Enabled = True Timer1.Interval = 10 End Sub Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick Label1.Text = TimeOfDay End Sub Private Sub ExitToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitToolStripMenuItem.Click Me.Close() End Sub End Class