VB.NET

create calendar

2014.07.21

* Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.Top = 0
Me.Location = New Point(Me.Location.X + 5, Me.Location.Y + 5)
Me.Left = System.Windows.Forms.Screen.PrimaryScreen.WorkingArea.Width - Me.Width + 1
Me.Left = My.Computer.Screen.WorkingArea.Width
System.Threading.Thread.CurrentThread.CurrentCulture = System.Globalization.CultureInfo.CreateSpecificCulture("th-TH")

System.Threading.Thread.CurrentThread.CurrentCulture = System.Threading.Thread.CurrentThread.CurrentCulture


Dim M_BITMAP As New Bitmap(Me.Width, Me.Height)
Using g As Graphics = Graphics.FromImage(M_BITMAP)
g.CopyFromScreen(Me.Location, Point.Empty, Me.Size)
g.DrawImage(My.Resources.cal, 0, 0, Me.Width, Me.Height)
End Using
Me.BackgroundImage = M_BITMAP

End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Label1.Text = DateTime.Now.ToString("HH:mm")
Label2.Text = Date.Now.ToString("dddd")
Label3.Text = Date.Now.ToString("dd")
Label4.Text = Date.Now.ToString("MMMM YYYY")

End Sub
End Class 
>