[kabtod]

      Dim s = 3
start:  Dim m = 1
print:  Label1.Text = Label1.Text + "X "
        m = m + 1
        If (m > s) Then
            s = s - 1
            If (s <> 0) Then
                GoTo start
            End If
        Else
            GoTo print
        End If