Help! I know I have done this before with no problems. I am probably just stressed over my Psych final and I'm missing something simple. Can somebody PLEASE tell me what I am doing wrong?
This is just one little portion of t project. I have a Numeric Up Down gathering the age of the user and I just want to pop up a message if they are under 16. I can't seem to get the value to populate down to the variable.
CODE
Private Sub BT_Apply_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BT_Apply.Click
Dim TB_Name, LB__Employment, LB_CreditRating, LB_HomeOwner, AgeFailed, FailedTitle As String
Dim AppAge, NUD_Age As Integer
'Dim WshShell, BtnCode, WScript
AppAge = NUD_Age
AgeFailed = "I'm sorry. You do not meet the minimum age requirment for mebership."
FailedTitle = "Credit Card Application Denied"
'ReDim AppAge(NUD_Age.Value)
'WshShell = WScript.CreateObject("WScript.Shell")
'''' Check Age (16 or Over): Nobody under 16 can get the card.
'If NUD_Age > "16" Then Object.Popup(AgeFailed, [FailedTitle], [0])
'If NUD_Age > "16" Then BtnCode = WshShell.Popup("I'm sorry. You do not meet the minimum age requirement for membership.", "Credit Card Application Denied:", 0 + 16)
If AppAge > 16 Then
MsgBox("I'm sorry. You do not meet the minimum age requirement for membership.")
'LB_Report.Items.Add("I'm sorry. You do not meet the minimum age requirement for membership.")
End If
As you can see, I have tried reference the control directly, and assigning a variable that references the code.
any help would be appreciated.
| 