dom1

Public Class Form1

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim x, y, h, k As Single, i As Integer = 0
        x = Val(InputBox("X"))
        y = Val(InputBox("Y"))
        h = Val(InputBox("H"))
        k = Val(InputBox("K"))
        For i = 1 To 3
            Module1.dom(x, y, h, k * i)
            x = x + i * 200
        Next
    End Sub
End Class
-----------------------------------------------------
Imports System.Drawing
Module Module1
    Dim g As Graphics
    Dim p1 As New Pen(Color.Black, 4)
    Dim k1 As New SolidBrush(Color.SaddleBrown)
    Dim k2 As New SolidBrush(Color.RosyBrown)
    Dim k3 As New SolidBrush(Color.White)
    Dim k4 As New SolidBrush(Color.Brown)
    Dim k5 As New SolidBrush(Color.Yellow)

    Dim krr, dy As Single

    Public Sub dom(ByVal x As Single, ByVal y As Single, ByVal h As Single, ByVal k As Single)
        dy = y - ((2 * h / 3) * (k - 1)) ' смещение У при масштабировании
        krr = k * h / 3 ' половина боковой стороны дома
        g = Form1.CreateGraphics

        g.DrawRectangle(p1, x, dy, k * h, 2 * krr) 'dom
        g.FillRectangle(k1, x, dy, k * h, 2 * krr) 'dom
        Dim kr() As PointF = {New PointF(x, dy), New PointF(x + krr * 3 / 2, dy - krr), New PointF(x + 3 * krr, dy)} 'krisha
        g.DrawPolygon(p1,kr)
        g.FillPolygon(k2, kr) 'krisha
        g.FillRectangle(k3, x + krr * 3 / 14, dy + krr * 2 / 5, krr * 2 / 3, krr) 'oknol
        g.FillRectangle(k3, x + krr * 37 / 42, dy + krr * 2 / 5, krr * 2 / 3, krr) 'oknor
        g.DrawPie(Pens.Aqua, x + krr * 3 / 14 - krr * 3 / 10, dy + krr * 2 / 5 - (krr / 2), krr * 3 / 5, krr, 0, 90)
        g.DrawPie(Pens.aqua, x + krr * 37 / 42 + krr * 2 / 3 - krr * 3 / 10, dy + krr * 2 / 5 - (krr / 2), krr * 3 / 5, krr, 90, 90)
        g.FillPie(k5, x + krr * 3 / 14 - krr * 3 / 10, dy + krr * 2 / 5 - (krr / 2), krr * 3 / 5, krr, 0, 90) 'zan1
        g.FillPie(k5, x + krr * 37 / 42 + krr * 2 / 3 - krr * 3 / 10, dy + krr * 2 / 5 - (krr / 2), krr * 3 / 5, krr, 90, 90) 'zan2
        g.DrawRectangle(p1, x + krr * 3 / 14, dy + krr * 2 / 5, krr * 2 / 3, krr) 'oknolg
        g.DrawRectangle(p1, x + krr * 37 / 42, dy + krr * 2 / 5, krr * 2 / 3, krr) 'oknorg
        g.DrawRectangle(p1, x + krr * 2, dy + krr, krr / 2, krr)
        g.FillRectangle(k4, x + krr * 2, dy + krr, krr / 2, krr) 'dver
    End Sub
End Module