Someone

Public Class Form1

    Private Sub cmdrate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdrate.Click
        listrates.Visible = True
    End Sub


    Private Sub cmdbill_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdbill.Click
        Const rugh As Decimal = 16.0
        Const lawnh As Decimal = 12.0
        Const painth As Decimal = 20
        Const deposit As Decimal = 30
        If cmbitem.Text <> "1" Or cmbitem.Text <> "2" Or cmbitem.Text <> "3" Then
            MessageBox.Show("Select a valid item")
        End If
        If cmbtime.Text <> "F" Or cmbtime.Text <> "H" Then
            MessageBox.Show("Select a valid time")
        End If

        If cmbitem.Text = "1" Then
            If cmbtime.Text = "H" Then
                lbltotal.Text = "$" & rugh + deposit
                lblitem.Text = "Rug Cleaner (Half Day)"
                lblprice.Text = "$" & rugh
            ElseIf cmbtime.Text = "F" Then
                lbltotal.Text = "$" & rugh * 1.5 + deposit
                lblitem.Text = "Rug Cleaner (Full Day)"
                lblprice.Text = "$" & rugh * 1.5
            End If
        End If
        If cmbitem.Text = "2" Then
            If cmbtime.Text = "H" Then
                lbltotal.Text = "$" & lawnh + deposit
                lblitem.Text = "Lawn Mower (Half Day)"
                lblprice.Text = "$" & lawnh
            ElseIf cmbtime.Text = "F" Then
                lbltotal.Text = "$" & lawnh * 1.5 + deposit
                lblitem.Text = "Lawn Mower (Full Day)"
                lblprice.Text = "$" & lawnh * 1.5
            End If
        End If
        If cmbitem.Text = "3" Then
            If cmbtime.Text = "H" Then
                lbltotal.Text = "$" & painth + deposit
                lblitem.Text = "Paint Sprayer (Half Day)"
                lblprice.Text = "$" & painth
            ElseIf cmbtime.Text = "F" Then
                lbltotal.Text = "$" & painth * 1.5 + deposit
                lblitem.Text = "Paint Sprayer (Full Day)"
                lblprice.Text = "$" & painth * 1.5
            End If
        End If

        lblreceipt.Visible = True
        lbltotal2.Visible = True
        lbldeposit.Visible = True
        lbldepprice.Visible = True


    End Sub


End Class