¿Cómo imprimir un copo de nieve rectangular con el centro vacío en programación VB?

Private?Sub?Form_Click()?'Haga clic en el formulario para ejecutar

Dim?x?As?Integer,?y?As?Integer

Para ? y?=?1?To?5?'Supongamos que la altura del rectángulo es 5

For?x?=?1?To?10?'Supongamos que el ancho del rectángulo es 10

Imprimir?Tab(x);

Si?x?=?1?O?x?=?10?O?y?=?1?O?y?=?5 ?Entonces?Imprimir? "*";

Siguiente?x

Siguiente?y

Fin?Sub