Ho provato ad implementare lo stesso algoritmo senza guardare la tua soluzione e funziona, vedi se ti può essere utile:
codice:
Public Class Form1
    Private x As Integer

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Dim b As New Button

        b.Size = New Size(20, 20)
        b.Text = "X"
        b.Location = New Point(x, 100)

        Me.Controls.Add(b)

        x += 20
    End Sub
End Class