Public Class Form1

Public Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

wall1HT.Clear()
wall1LT.Clear()
wall2HT.Clear()
wall2LT.Clear()
wall3HT.Clear()
wall3LT.Clear()
wall4HT.Clear()
wall4LT.Clear()

End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Me.Close()
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim wall1HT As Integer = 0
Dim wall1LT As Integer = 0
Dim wall2HT As Integer = 0
Dim wall2LT As Integer = 0
Dim wall3HT As Integer = 0
Dim wall3LT As Integer = 0
Dim wall4HT As Integer = 0
Dim wall4LT As Integer = 0
Dim wall1Total As Integer = 0
Dim wall2Total As Integer = 0
Dim wall3Total As Integer = 0
Dim wall4Total As Integer = 0
Dim paintCans As Single

wall1Total = wall1HT * wall1LT
wall2Total = wall2HT * wall2LT
wall3Total = wall3HT * wall2LT
wall4Total = wall4HT * wall4LT

paintCans = wall1Total + wall2Total + wall3Total + wall4Total

For paintCans = 0 To 1000 Step 1
If paintCans <= 500 Then
paintCans = 1
Else
For paintCans = 501 To 1000 Step 1

Next
End If
Next

paintCans = ansLBL.Text


End Sub
End Class

I am really bad at this. I know this is completely wrong in every aspect. Please dont be mad that i am butchering your language.