Public Class Form1
    Public Sub body()
        'this subroutine draws the body
        IstBox.Items.Add("      *        *")
        IstBox.Items.Add("     *     *    *")
        IstBox.Items.Add("    *            *")
        IstBox.Items.Add("   *       *      *")
        IstBox.Items.Add("    *            *")
        IstBox.Items.Add("     *     *    *")
        IstBox.Items.Add("      *        *")
        IstBox.Items.Add("       ********")
    End Sub
    Public Sub hat()
        'this subroutine draws the hat
        IstBox.Items.Add("          *****")
        IstBox.Items.Add("          *   *")
        IstBox.Items.Add("          *   *")
        IstBox.Items.Add("       ********")
    End Sub
    Public Sub head()
        'this subroutine draws the head
        IstBox.Items.Add("       *      *")
        IstBox.Items.Add("      *  0   0 *")
        IstBox.Items.Add("     *     ^    *")
        IstBox.Items.Add("      *   \_/  *")
        IstBox.Items.Add("       *      *")
        IstBox.Items.Add("        ******")
    End Sub

    Private Sub btnSnowman_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSnowman.Click
        hat()
        head()
        body()

    End Sub
End Class