Thanks @vbrad, glad you like it.

That bug did get reported a few days ago. It will be fixed in BETA 8 tomorrow, but here is a fix for now:

Code:
    Private Declare PtrSafe Function RedrawWindow Lib "user32" (ByVal hwnd As LongPtr, ByVal lprcUpdate As LongPtr, ByVal hrgnUpdate As LongPtr, ByVal fuRedraw As Long) As Long
    Private Sub Command1_Click() Handles Command1.Click
        If Me.BackColor = vbRed Then
        	Me.BackColor = vbBlue
        Else
            Me.BackColor = vbRed
        End If

        RedrawWindow Me.hWnd, 0, 0, RDW_ERASE Or RDW_INVALIDATE
    End Sub