Froma 1 timer 1 tanede Label Ekliyoruz.Sonra bu kodlari yapistiriyoruz.

Private Sub Form_Load()
Timer1.Interval = 100
Label1.Caption = " kendi adınızı veya web adresinizi yazabilirsiniz "


End Sub

Private Sub Timer1_Timer()
Label1.Caption = Mid(Label1.Caption, 2) + Left(Label1.Caption, 1)
End Sub

Not:Kayan yazıyı değiştirmek icin kendi adınızı veya web adresinizi yazabilirsiniz yazan yeri kendinize gore değiştirebilirsiniz.



2. VB.NET Program Adı Değiş. Engelleme


Dim programadi As String = IO.Path.GetFileNameWithoutExtension(Application.Ex ecutablePath)

If programadi = "test.exe" Then ' programın adi .exe yapın

ElseIf programadi = "test" Then 'programın adını .exe koymadan yazın

Else
MsgBox("Program Adi Değiştirildiği İcin Kapatılıyor Lutfen Yeniden Yukleyiniz.", MsgBoxStyle.Critical, "Hata")
Me.Close()
End If

__________________