Breadcrumbs

[Bogoh67]

fist create new application
then make a module
delete all code found and put

Code: Select all

Module Module1
    Public Sub MakeIcon()
        Dim b As Bitmap
        b = New Bitmap("PUT_NAME_HERE")
        Form1.Icon = DoWork(b, New Size(16, 16))
    End Sub
    Private Function DoWork(ByVal b As Bitmap, ByVal s As Size) As Icon
        Dim bitmap As New Bitmap(s.Width, s.Height)
        b = bitmap
        Return Icon.FromHandle(b.GetHicon())
    End Function
End Module

then go back to form1 and under formload
put

Code: Select all

MakeIcon()

[XTechVB]

nice i never seen this before, i like new codes
Good Job Bogoh67 cooll;

[r3Fuze]

Thanks, im gonna use this

[mandai]

The DoWork function isn't actually making an icon from the jpg image. The code should look like this:

Code: Select all

    Private Function DoWork(ByVal b As Bitmap, ByVal s As Size) As Icon
        b = New Bitmap(b, s.Width, s.Height)
        Return Icon.FromHandle(b.GetHicon())
    End Function

[Skillful]

Thank you Cheatmsterbw!I'll use this.

[code it]

Thank you Cheatmsterbw!I'll use this.

You meant bogoh67

[Usman55]

Nice code, And I think he said cheatmasterw cuz Bogoh's name's color is also same.

[Dummy1912]

:o

I never seen this before i always created my icons to use
but thanks now i can just use this clapper;

Thanks
Dummy1912