Miscellany

        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 = "" Then
            MessageBox.Show("Select a valid number")
        End If
        If cmbtime.Text = "" 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