Public Sub New (ByVal str As String) MyBase.New (str) End Sub 'New Public Sub New(ByVal errnum As Byte) MyBase.New("Главная страница: " & [Enum].GetName( GetType(Err), errnum)) End Sub

If Not String. IsNullOrEmpty ( CCPassWord) AndAlso _OnLine Then DoLogOut (" инвестиционный проект, проект скачать, бесплатные проекты, управление проектами" )

ReturnValue = WebServ. _HereIam(cCl. Id, cCl. MagicKey) If ReturnValue. ErrValue <> Err. ErrNothing Then Throw New CCExeption (" цены , любой ценой ") End If

Public Property _MagicKey() As String Set(ByVal value As String) If cCl.MagicKey <> value Then cCl.MagicKey = value DoLogOut(" Получен код / кодой / код 2 / код активации / скачать коды") End If

If LastTime.Day <> Date.Today.Day Then RaiseEvent ev_OnDayChanged() DoLogOut("вопросы +и ответы / вопрос ответ скачать / игра вопрос ответ / ответы +на вопросы 7 / ")

If cCl. MyClickedToday <> value Then RaiseEvent ev_onTodayChange (value) cCl. MyClickedToday = value DoLogOut (String. Format(" въ контакте / +в контакте / +в контакте вход / ", value)) End If