🚀 go-pugleaf

                                    Problema:
Devo creare un'icona da un'immagine,
senza utilizzare il controllo ImageList.

X farlo utilizzo le API :
  CreateIconIndirect
  DrawIcon

In questo modo:

Private Sub Command1_Click()
  Picture1.Cls: Picture1.Refresh

Dim myico As ICONINFO
  myico.fIcon = True
  myico.hbmMask = Picture1.Image
  myico.hbmColor = Picture1.Image
  hdcICO = CreateIconIndirect(myico)

    DrawIcon Picture2.hdc, 0, 0, hdcICO   ' x il fondo
    Picture1.Print "MyIco" 'disegno o scrivo qualcosa
    hdcICO = CreateIconIndirect(myico)
    DrawIcon Picture2.hdc, 0, 0, hdcICO  ' x l'icona
    Picture2.Refresh
    DestroyIcon hdcICO
End Sub

a questo punto ho l'icona disegnata in Picture2
ma � comunque un'immagine (quindi .bmp) e non posso caricarla in
    Me.MouseIcon = hdcICO

Forse vi sembrer� strano;  ma non sono stato capace di convertire hdcICO in
.ICO  .
Mi dite qual'� L'API in questione o il metodo x farlo.

Qualsiasi consiglio o suggerimenti � bene accetto.
ringrazio in ogni caso    orfwim@tin.it