...più o meno la sostanza è questa:
Private da As DrawingArea
Private bo As Boolean
Public Sub Form_Open()
With da = New DrawingArea(Me) As "DrawingArea1"
.X = 200
.Y = 200
.W = 100
.H = 80
End With
End
Public Sub DrawingArea1_Draw()
Dim pc As Picture
Dim testo As String
pc = Stock["32/monitor"]
testo = "Testo qualsiasi"
With Draw
.Style.Button(0, 0, da.W, da.H, bo, 0, False)
.Picture(pc, (.W - pc.W) / 2, 10)
.Text(testo, (.W - .TextWidth(testo)) / 2, 50)
End With
bo = Not bo
End
Public Sub DrawingArea1_MouseDown()
Print "Tasto premuto";
da.Refresh
End
Public Sub DrawingArea1_MouseUp()
Print " e rilasciato"
da.Refresh
End