Как сделать чтобы твоя программа работала, например 30 дней или после 30 запусков требовала ввести какой либо пароль. При вводе правильного пароля она работала бы год.

Растёт парень

А проблема то в чём собственно? Тут токо одно сложное место - возможность перевода часов. Для этого надо отслеживать дату последнего запуска - и смотреть не больше ли она чем текущая дата.
Ну и ёще что сложно - это вопрос о том, куда и как писать информацию о запусках, прошлой дате и максимальные значения для этих параметров. Тут токо так - писать надо везде куда сможеш, несколько раз одно и тоже зашифрованое разными способами. Везде куда сможеш - это имеется ввиду чтобы не удалили случайно - или специально. В виндовз, систем, реестр - подальше кудато. Однозначно не в папку программы. Туда лучше вообще ничего не писать. Даже для последующей сверки с остальными ключами - т.к. её могут удалить и заново переставить.
Ну и в программе в нескольких местах надо проверку делать - по общим рекоммендациям проверка должна быть в рабочих процедурах - так, чтобы народные умельцы не смогли без потери функциональности ето убрать оттудова.
Токо лучше не перебарщивать. Я один раз такого наворотил, блин - и по итогу оказалось что программа сама себя обманула . Хорошо более-менее вовремя заметил - до окончания демок у клиентов. Пришлось всем рассказывать что в программе ошибка от которой могут пострадать их данные и обновлять им демки .
А ещё - как я недавно совсем узнал - на http://www.planet-source-code.com есть КУЧА готовых модулей, контролов и примеров на эту тему (я раньше искал такое - токо на такие заляжи не натыкался как-то). Вплоть до того, что ложите контрол на форме и задаёте время демки, запуски и т.п. . Токо я такие вещи не очень склонен доверять в чужие руки. Ну смотри - сам.

Ну вот такое краткое напутствие - если более конкретные вопросы будут - спрашивай .

Возьмите толковый словарь (можно в Инете) и посмотрите что такое shareware. И чем оно отличается от trial version.

Затем откорректируйте название и постинг.

Лучше сделать первый запуск по ключу.
Считать серийный номер диска или BIOS на компе пользователя,
затем послать ему, в случае вашего согласия ключ, который генерируется на основании
серийного номера другой вашей программой.
Если ключ не верен - прога не запустится.

Вот пример считывания серийного номера:

Option Explicit
Dim Disk As Variant
Private Declare Function GetVolumeSerialNumber Lib "kernel32" Alias "GetVolumeInformationA" (ByVal lpRootPathName As String, ByVal lpVolumeNameBuffer As String, ByVal nVolumeNameSize As Long, lpVolumeSerialNumber As Long, lpMaximumComponentLength As Long, lpFileSystemFlags As Long, ByVal lpFileSystemNameBuffer As String, ByVal nFileSystemNameSize As Long) As Long
Private Function VolumeSerialNumber(ByVal RootPath As String) As String
Dim VolLabel As String
Dim VolSize As Long
Dim Serial As Long
Dim MaxLen As Long
Dim Flags As Long
Dim Name As String
Dim NameSize As Long
Dim s As String
Dim ret As Boolean
ret = GetVolumeSerialNumber(RootPath, VolLabel, VolSize, _
Serial, MaxLen, Flags, Name, NameSize)
If ret Then

s = Format(Hex(Serial), "00000000")

VolumeSerialNumber = Left(s, 4) + "-" + Right(s, 4)
Else

VolumeSerialNumber = "0000-0000"
End If
End Function
Private Sub Form_Load()
Show
End Sub


Private Sub Form_Unload(Cancel As Integer)
If звук = True Then lpszSoundName = (App.Path & "\Click5.wav")
If звук = True Then Call sndPlaySound(lpszSoundName, 1) 'Звук

Форма1.Enabled = True
End Sub

Private Sub xpcmdbutton1_Click()
Disk = Текст1.Text
'MsgBox VolumeSerialNumber("C:\")
MsgBox "Диск " & Disk & ":\" & Chr(13) & Chr(13) & VolumeSerialNumber(Disk & ":\"), 64, "Серийный номер"

End Sub