.NET (Core and Framework)

<br />
System.Globalization.CultureInfo culture = new System.Globalization.CultureInfo("sv-SE", false);<br />
System.DayOfWeek day = culture.Calendar.GetDayOfWeek(DateTime.Now);<br />
string dayAsString = day.ToString();<br />

Public Class DummyCtrl <br />
    Inherits System.Windows.Forms.Control <br />
<br />
    Protected Overrides ReadOnly Property CreateParams() As System.Windows.Forms.CreateParams <br />
        Get <br />
            Const WS_POPUP As Long = &H80000000 <br />
            Const WS_CHILD As Long = &H40000000 <br />
<br />
            Dim cp As CreateParams = MyBase.CreateParams <br />
            cp.Style = WS_POPUP 'Or WS_CHILD <br />
            cp.Parent = IntPtr.Zero <br />
            cp.Height = 200 <br />
            cp.Width = 200 <br />
            cp.X = 0 <br />
            cp.Y = 0 <br />
            Return cp <br />
        End Get <br />
    End Property <br />
End Class <br />

<br />
    Dim myloc As Point <br />
    Dim dummy As DummyCtrl <br />
<br />
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click <br />
<br />
        If dummy Is Nothing Then <br />
            dummy = New DummyCtrl <br />
<br />
            Me.Controls.Add(dummy) <br />
            dummy.Location = New Point(50, 50) <br />
            dummy.Visible = True <br />
            myloc = Me.PointToScreen(New Point(0, 0)) <br />
        End If <br />
<br />
    End Sub <br />
<br />
    Private Sub Form1_Move(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Move <br />
        If Not dummy Is Nothing Then <br />
<br />
            'calculate the distance moved <br />
            Dim newloc As Point = Me.PointToScreen(New Point(0, 0)) <br />
            Dim diff As Point = New Point(newloc.X - Me.myloc.X, newloc.Y - Me.myloc.Y) <br />
<br />
            Debug.WriteLine("Before " & Me.dummy.Location.X & " " & Me.dummy.Location.Y & " " & diff.X & " " & diff.Y) <br />
            dummy.Location = New Point(Me.dummy.Location.X + diff.X, Me.dummy.Location.Y + diff.Y) <br />
            Debug.WriteLine("After " & Me.dummy.Location.X & " " & Me.dummy.Location.Y & " " & diff.X & " " & diff.Y) <br />
<br />
            Me.myloc = newloc <br />
        End If <br />
    End Sub