Il disegno del numero sulla DrawingArea viene cancellato non appena viene attivata la WebCam.
In altre parole la ripresa video della WebCam, mostrato sulla DrawingArea, cancella (ovviamente!) tutto quanto v'era in precedenza.
Pertanto, l'intera routine "Public Sub DrawingArea1_Draw()" è del tutto inutile ai tuoi fini (va eliminata); e il disegno del numero va posto nella routine successiva, laddove viene creata l'immagine.
Dunque: prima va creata l'immagine dal video e poi sulla medesima sarà stampato il numero prescelto.
......
' Crea la "Picture" con l'immagine tratta in tempo reale dal video della WebCam:
pc = Desktop.Screenshot(DrawingArea1.ScreenX, DrawingArea1.ScreenY, DrawingArea1.Width, DrawingArea1.Height)
' Creata dunque la "Picture", va QUI e ORA disegnato il numero prescelto:
With Paint
.Begin(pc)
.Brush = Paint.Color(Color.Black)
.Font.Bold = True ' ...se vuoi il grassetto
.Font.Size = 14 ' Imposta una dimensione del font
.DrawText(CStr(ValueBox1.value), 100, 100, DrawingArea1.W, DrawingArea1.H) ' ...ho posto valori esemplificativi
.End
End With
pc.Save(Myperc, 100)
......