[محمد العبيدي]

اخي shadid
بالنسبة لطلبك فان الجواب هو التالي فارجو ان يكون جوابي هو ماتقصده حضرتك

كود :

Private Sub Form_Load()
   Text1.ForeColor = &H808080
   Text1.Text = "Enter UserName..."
End Sub

Private Sub Text1_Click()
   If Trim(Text1.Text) = "Enter UserName..." Then
       Text1.ForeColor = &H0&
       Text1.Text = ""
   End If
End Sub

Private Sub Text1_LostFocus()
   If Trim(Text1.Text) = "" Then
       Text1.ForeColor = &H808080
       Text1.Text = "Enter UserName..."
   End If
End Sub

اما بخصوص سؤالك فيمكنك حماية الكود عن طريق تحويل البرنامج الى صيغة ملف تنفيذي exe عن طريق عمل Package
وللحماية من النسخ يمكن اعتماد رقم الهارد الخاص بالحاسبة لمنع تشغيل النظام على حاسبة اخرى