boatn19

I'm not asking for you to complete this help me out a bit...simple problem. I am trying to calculate sales x commission and show the commission rate with explicit on and well here it is and i am screwing up, can you tell me where to find the answer...

Option Explicit On
Option Strict On

Public Class MainForm

Private Sub xExitButton_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles xExitButton.Click
Me.Close()
End Sub

Private Sub xCalcButton_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles xCalcButton.Click
' calculates and displays a commission

Const xCommissionLabel As Decimal = 0.1D
Dim xsalestextbox As Integer
Dim xCommissionLabel As String

Integer.TryParse(Me.xSalesTextBox, xCommissionLabel)
xCommissionLabel = xsalestextbox * 10.0
Me.xCommissionLabel.Text = Convert.ToString(xsalestextbox)

End Sub

Private Sub MainForm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub

Private Sub xCommissionLabel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles xCommissionLabel.Click

End Sub

Private Sub xSalesTextBox_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles xSalesTextBox.TextChanged

End Sub
End Class