To prevent the form from moving, subclass.

Private Sub Form_Load()
    ' Position the form.
    PositionForm

    ' Install the new WindowProc.
    OldWindowProc = SetWindowLong( _
        hwnd, GWL_WNDPROC, _
        AddressOf NewWindowProc)
End Sub

' Put the form along the right edge of the work area.
Private Sub PositionForm()
    g_DesiredX = SysInfo1.WorkAreaLeft
    g_DesiredY = SysInfo1.WorkAreaTop
    g_DesiredWidth = SysInfo1.WorkAreaWidth

    g_DesiredXPix = ScaleX(g_DesiredX, vbTwips, vbPixels)
    g_DesiredYPix = ScaleX(g_DesiredY, vbTwips, vbPixels)
    g_DesiredWidthPix = ScaleX(g_DesiredWidth, vbTwips, _
        vbPixels)

    Move g_DesiredX, g_DesiredY, g_DesiredWidth
End Sub

Public Function NewWindowProc(ByVal hwnd As Long, ByVal msg _
    As Long, ByVal wParam As Long, lParam As WINDOWPOS) As _
    Long
Dim new_aspect As Single

    ' Keep the aspect ratio.
    If msg = WM_WINDOWPOSCHANGING Then
        ' Reset the position.
        lParam.x = g_DesiredXPix
        lParam.y = g_DesiredYPix

        ' Reset the width.
        lParam.cx = g_DesiredWidthPix
    End If

    ' Continue normal processing. VERY IMPORTANT!
    NewWindowProc = CallWindowProc( _
        OldWindowProc, hwnd, msg, wParam, _
        lParam)
End Function

' Some setting changed, possibly the location of the
' task bar. Reposition the form.
Private Sub SysInfo1_SettingChanged(ByVal Item As Integer)
    PositionForm
End Sub