Would I be correct in assuming that you are making sure that you have a radio button selected before you are clicking the button?
Secondly if you are going to create a class to contain your property values then, you should do it the correct way.
The global variables should be private to help promote encapsulation. You should create public properties that allow access to those private variables. Next inside the New subroutine you should only be initializing the values of the variables. See the following example of your code.
Example:
CODE
Public Class Ad_to_project
Private m_Company As String
Private m_Telephone As String
Private m_addate As String
Private m_Size As Decimal
Private m_Location As Decimal
Private m_Price As Decimal
Public Sub New()
m_Company = ""
m_Telephone = ""
m_addate = ""
m_Size = 0.0
m_Location = 0.0
m_Price = 0.0
End Sub
Public Property Company() As String
Get
Return m_Company
End Get
Set(ByVal value As String)
m_Company = value
End Set
End Property
Public Property Telephone() As String
Get
Return m_Telephone
End Get
Set(ByVal value As String)
End Set
End Property
Public Property AdDate() As String
Get
Return m_addate
End Get
Set(ByVal value As String)
m_addate = value
End Set
End Property
Public Property Size() As Decimal
Get
Return m_Size
End Get
Set(ByVal value As Decimal)
m_Size = value
End Set
End Property
Public Property Location() As Decimal
Get
Return m_Location
End Get
Set(ByVal value As Decimal)
m_Location = value
End Set
End Property
Public Property Price() As Decimal
Get
Return m_Price
End Get
Set(ByVal value As Decimal)
m_Price = value
End Set
End Property
End Class
Now when you instantiate an object of this class all the variables are correctly initialized to default values. And you can use the properties in the same manner that you currently are.