Public Class Form1 Private Sub Button1_Click(ByVal sender As - TopicsExpress

Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim IncentivePay As Double Dim GrossPay As Double Dim BasicPay As Double Dim RegularPayRate As Double Dim IncentivePayRate As Double ListBox1.Items.Add(EC.Text) ListBox1.Items.Add(EN.Text) If RB1.Checked = True Then ListBox1.Items.Add("Shift: Morning") ListBox1.Items.Add("120.50") RegularPayRate = 120.5 BasicPay = Val(HW.Text) * RegularPayRate ListBox1.Items.Add("Basic Pay") ListBox1.Items.Add(BasicPay) If Val(HW.Text) < 50 Then IncentivePayRate = 0 IncentivePay = IncentivePayRate * Val(HW.Text) ElseIf Val(HW.Text) >= 50 And Val(HW.Text) = 60 And Val(HW.Text) 69 Then IncentivePayRate = 0.75 * RegularPayRate IncentivePay = IncentivePayRate * Val(HW.Text) ListBox1.Items.Add("IncentivePayRate") ListBox1.Items.Add(IncentivePay) ListBox1.Items.Add("GrossPay") GrossPay = Val(HW.Text) + IncentivePay ListBox1.Items.Add(GrossPay) End If End If If RB2.Checked = True Then ListBox1.Items.Add("Shift: Midday") ListBox1.Items.Add("110.75") RegularPayRate = 110.75 BasicPay = Val(HW.Text) * RegularPayRate ListBox1.Items.Add(BasicPay) If Val(HW.Text) < 50 Then IncentivePayRate = 0 IncentivePay = IncentivePayRate * Val(HW.Text) ListBox1.Items.Add("IncentivePayRate") ListBox1.Items.Add(IncentivePay) ElseIf Val(HW.Text) >= 50 And Val(HW.Text) = 60 And Val(HW.Text) 69 Then IncentivePayRate = 0.75 * RegularPayRate IncentivePay = IncentivePayRate * Val(HW.Text) ListBox1.Items.Add("IncentivePayRate") ListBox1.Items.Add(IncentivePay) GrossPay = Val(HW.Text) + IncentivePay ListBox1.Items.Add("GrossPay") ListBox1.Items.Add(GrossPay) End If End If If RB3.Checked = True Then ListBox1.Items.Add("Shift: Night") ListBox1.Items.Add("130.50") RegularPayRate = 110.75 BasicPay = Val(HW.Text) * RegularPayRate ListBox1.Items.Add(BasicPay) If Val(HW.Text) < 50 Then IncentivePayRate = 0 IncentivePay = IncentivePayRate * Val(HW.Text) ListBox1.Items.Add("IncentivePayRate") ListBox1.Items.Add(IncentivePay) ElseIf Val(HW.Text) >= 50 And Val(HW.Text) = 60 And Val(HW.Text) 69 Then IncentivePayRate = 0.75 * RegularPayRate IncentivePay = IncentivePayRate * Val(HW.Text) ListBox1.Items.Add("IncentivePayRate") ListBox1.Items.Add(IncentivePay) End If ListBox1.Items.Add("GrossPay") GrossPay = Val(HW.Text) + IncentivePay ListBox1.Items.Add(GrossPay) End If End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click EC.Clear() EN.Clear() HW.Clear() ListBox1.Items.Clear() RB1.Checked = False RB2.Checked = False RB3.Checked = False End Sub Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click MessageBox.Show("GoodBye!") End End Sub End Class

Looking for quick sale, Im asking 13k Located in Sheridan

O people of Pakistan! Revolution alone will not bring Qadri and

Macross Fighters Collection 01 - Case of 12 Blind Boxes @ Cyber

Bien.hu | Bak szept. 19, csütörtök: Valami nincs rendben

I marvel how Nature could ever find space For so many strange

Chitupa pz ndapota.ndiri mukadzi ane 29yrs and married.I stay

DOLCE VITA II **FOR SALE** Full Details at

It is not too late to change the outcome of the vote

So today i have gotten so much done (OMG) It was so needed it was

Urgently Looking for Fashion Consultant for Mumbai ( Thane &

The National Security Agency will begin accepting applications

The Park Bench Café was originally known as the peanut shack. The

The Menu!!!!! Blackened Turkey Burger, Maple Dijon Spread,

The Pre‐Sales Consultant (PSC) supports sales productivity and

BECWs Gang Rulz is less than 2 weeks away and after making a

#Share Mista Taylor- Carolina Hot Nigga (Video) by @Qua…:

For those of you who enjoy music documentaries, I HIGHLY recommend

bcbbyzigbedbd

The POP UP Christmas shop is a seasonal group and a place to buy

Languages of the World It is difficult to give an exact figure