Public Class Form1

    Private Sub btnSnowman_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSnowman.Click
        Hat()
        Head()
        Body()
    End Sub
    Public Sub Hat()
        lstBox.Items.Add("       *****")
        lstBox.Items.Add("       *   *")
        lstBox.Items.Add("       *   *")
        lstBox.Items.Add("       *********")
    End Sub
    Public Sub Head()
        lstBox.Items.Add("     *             *")
        lstBox.Items.Add("    *    0     0    *")
        lstBox.Items.Add("   *        ^        *")
        lstBox.Items.Add("    *      \_/      *")
        lstBox.Items.Add("     *             *")
        lstBox.Items.Add("        **********")
    End Sub
    Public Sub Body()
        lstBox.Items.Add("     *               *")
        lstBox.Items.Add("    *         *        *")
        lstBox.Items.Add("   *                    *")
        lstBox.Items.Add("  *           *          *")
        lstBox.Items.Add("   *                    *")
        lstBox.Items.Add("    *         *        *")
        lstBox.Items.Add("     *                *")
        lstBox.Items.Add("        **********")
    End Sub
End