Captcha Generator

[akhileshbc]

lol how to run this code? i copied and pasted it on a new form and changes class name to whatever it is, does not work
While calling functions it is not working

Create a new project. Add a new PictureBox and a button into your form. And use this code:

Public Class Form1
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
 
        '~~~ Create the object
        Dim myCaptcha As New captcha
 
        '~~~ Generate the captcha image and assign this image to the picturebox
        PictureBox1.Image = myCaptcha.generatecaptcha(5)
 
    End Sub
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
        PictureBox1.SizeMode = PictureBoxSizeMode.AutoSize  '~~~ or, you can drag the picturebox to a bigger size(at design time) that could afford the image generated 
        Me.WindowState = FormWindowState.Maximized  '~~~ show the form as maximized
 
    End Sub
 
End Class

Then add a new class(Project menu --> Add new class).
And copy-paste the code from the first post of this thread.

Then run your project.