diff --git a/app/src/gambas3/.src/FMain.class b/app/src/gambas3/.src/FMain.class
index 2bb20bad5..37344b54b 100644
--- a/app/src/gambas3/.src/FMain.class
+++ b/app/src/gambas3/.src/FMain.class
@@ -2709,9 +2709,9 @@ Public Sub Form_Resize()
   
   If dwgWelcome.Visible Then
     DS = Desktop.Scale
-    W = frmWelcome.GetFixedWidth() + DS * CProjectList.PROJECT_BOX_SCALE_WIDTH * 2 + DS * 3 + Style.ScrollbarSize + Style.ScrollbarSpacing + 3 + dwgWelcome.Padding * 2
-    If W > Me.ClientW Then W = Max(Me.ClientW, DS * 70)
-    H = Max(DS * 60, Me.ClientH)
+    W = frmWelcome.GetFixedWidth() + DS * CProjectList.PROJECT_BOX_SCALE_WIDTH * 2 + DS * 3 + Style.ScrollbarSize + Style.ScrollbarSpacing + dwgWelcome.Padding * 2
+    If W > Me.ClientW Then W = Me.ClientH 'Min(Me.ClientW, DS * 70)
+    H = Me.ClientH
     dwgWelcome.Move((Me.ClientW - W) \ 2, (Me.ClientH - H) \ 2, W, H)
   Endif
 
diff --git a/app/src/gambas3/.src/Welcome/FWelcome.class b/app/src/gambas3/.src/Welcome/FWelcome.class
index 427713021..ac4390cf7 100644
--- a/app/src/gambas3/.src/Welcome/FWelcome.class
+++ b/app/src/gambas3/.src/Welcome/FWelcome.class
@@ -439,7 +439,7 @@ Public Sub panList_Arrange()
 
   Dim iArr As Integer
 
-  iArr = If(panList.W >= Desktop.Scale * 70, Arrange.Row, Arrange.Vertical)
+  iArr = If(panList.W >= (Desktop.Scale * (CProjectList.PROJECT_BOX_SCALE_WIDTH * 2 + 3) + Style.ScrollbarSize + Style.ScrollbarSpacing), Arrange.Row, Arrange.Vertical)
   'Debug iArr;; panList.W;; Desktop.Scale * 64
   $hRecent.SetArrangement(iArr)
   $hExample.SetArrangement(iArr)