Vb.net Basit Tasarım Efektleri Kodlama

        If Label1.Text = "Yükleniyor" Then 'Eğer labelin yazısı "Yükleniyor" ise yazıyı "Yükleniyor." olarak değiştiriyor aşağıdaki kodlarda aynı sistem ile yapılmıştır
            Label1.Text = "Yükleniyor."
        ElseIf Label1.Text = "Yükleniyor." Then 'ElseIf  koşullar başarısız olduğu için devreye girer.
            Label1.Text = "Yükleniyor.."
        ElseIf Label1.Text = "Yükleniyor.." Then
            Label1.Text = "Yükleniyor..."
        ElseIf Label1.Text = "Yükleniyor..." Then
            Label1.Text = "Yükleniyor"
        End If

 If Label1.ForeColor = Color.Black Then 'Eğer labelin rengi "Black" ise rengini "Red" olarak değiştiriyor aşağıdaki kodlarda aynı sistem ile devam ediyor
            Label1.Text = Color.Red
        ElseIf Label1.Text = Color.Red Then 'ElseIf  koşullar başarısız olduğu için devreye girer.
            Label1.Text = Color.Green
        ElseIf Label1.Text = Color.Green Then
            Label1.Text = Color.Orange
        ElseIf Label1.Text = Color.Orange Then
            Label1.Text = Color.Black

TextBox2.Text = TextBox1.Text 'TextBox1 in içindeki yazıyı TextBox2 ye aktarır

        If Panel1.Height = 15 Then ' Eğer panel1 in uzunluğu 15 ise timer1 i başlat ve button1 i kullanılamaz hale getir
            Button1.Enabled = False
            Timer1.Enabled = True
        ElseIf Panel1.Height >= 15 Then Eğer panel1 in uzunluğu 15 den büyük ise timer2 i başlat ve button1 i kullanılamaz hale getir
            Timer2.Enabled = True
            Button1.Enabled = False
        End If

       Panel1.Height += 1 'Timer1 aktif hale getirildiği için panel1 in uzunluğu sürekli bir bir artacaktır
        If Panel1.Height = 15 Then 'Eğer panel1 in ilk uzunluğu 15 değil ise işlem yaptırmaz ve ElseIf devreye girer.

        ElseIf Panel1.Height = 35 Then 'Eğer panel1 in yeni aldığı uzunluk 35 ise Timer1 i durdurur ve Button1 i kullanılabilir hale getirir.
            Timer1.Enabled = False
            Button1.Enabled = True
        End If

        Panel1.Height -= 1 'Timer1 aktif hale getirildiği için panel1 in uzunluğu sürekli bir bir azalacaktır
        If Panel1.Height = 35 Then 'Eğer panel1 in ilk uzunluğu 35 değil ise işlem yaptırmaz ve ElseIf devreye girer.

        ElseIf Panel1.Height = 15 Then 'Eğer panel1 in yeni aldığı uzunluk 15 ise Timer2 i durdurur ve Button1 i kullanılabilir hale getirir.
            Timer2.Enabled = False
            Button1.Enabled = True
        End If

        RichTextBox1.Text = TextBox1.Text 'TextBox1 in içindeki yazıyı RichTextBox1 e aktarır
        TextBox1.Text = "" 'TextBox1 deki yazıyı siler.
        If RichTextBox1.Text = "/sosyalmedya f" Then 'Eğer TextBox1 e /sosyalmedya f komutunu yazıp gönderdiyseniz sizi Facebook a yönlendirir.
            Process.Start("www.facebook.com")
        ElseIf RichTextBox1.Text = "/sosyalmedya y" Then 'Eğer ilk koşul başarısız olduysa, TextBox1 e /sosyalmedya y komutunu yazıp gönderdiyseniz sizi Youtube a yönlendirir.
            Process.Start("www.youtube.com")
        End If