[Avatar]Generator - A-Z

[noparse]
Public Class Form1

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Try
            PictureBox1.ImageLocation = "http://ifalse.de/ava/" & TextBox1.Text & ".png"
            RichTextBox2.Text = "http://ifalse.de/ava/" & TextBox1.Text & ".png"
            RichTextBox1.Text = "[URL=http://www.elitepvpers.com/forum/minecraft/1647901-avatar-generator-z.html]" & "[IMG]http://ifalse.de/ava/" & TextBox1.Text & ".png" & "[/IMG][/URL]"
        Catch ex As Exception
            MsgBox("Fehler beim laden des Bildes.")
        End Try


    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Try
            Dim bmp As New Bitmap(PictureBox1.Image)
            bmp.Save(TextBox1.Text & ".png")

        Catch ex As Exception
            MsgBox("Fehler beim Speichern des Bildes.")
        End Try
    End Sub
End Class

[/noparse]