Public Sub my_message_box(responso As Boolean) As Boolean
'Dim my_win_box As Window ' posta nelle "Dichiarazioni"
Dim pc As Picture
Dim my_dwg As DrawingArea
Dim sPath As String

  ' una qualsiasi immagine png con sfondo trasparente
  ' con Width minore di questa finestra
  ' ed Heigth minore di 120 px.
  sPath = Application.Path &/ "fatture_user/image/vigiot.png" 
  pc = Picture.Load(sPath)
  responso = False
  With my_win_box = New Window As "w_box"
    .Width = 450
    .Height = 160
    .Resizable = False
    .Border = False
    .Minimized = False
    .Background = Color.Transparent
    '.Opacity = 0
    .Mask = True
  End With
  
  With my_dwg = New DrawingArea(my_win_box) As "m_dwg"
    .X = 0
    .Y = 0
    .Width = my_win_box.Width
    .Height = my_win_box.Height
    .Background = Color.Transparent
  End With
  my_dwg.Cached = True
  With Paint
    .Begin(my_dwg)
    .Brush = Paint.Color(Color.DarkBlue)
    .LineWidth = 2.5
    .Rectangle(1, 1, my_win_box.Width - 2, my_win_box.Height - 2, my_win_box.Width / 6)
    .Stroke(False)
    .DrawPicture(pc, ((my_win_box.Width / 2) - pc.Height / 2), 20, pc.Width, pc.Height)
    .Brush = Paint.Color(Color.Black)
    .LineWidth = 1
    .Rectangle((my_win_box.Width / 2) - 30, my_win_box.Height - 32, 60, 20, 6)
    .Stroke(False)
    .MoveTo((my_win_box.Width / 2) - 14, my_win_box.Height - 16)
    .Font.Bold = True
    .Text("OK")
    .Fill(True)
    .End
  End With
  responso = my_win_box.ShowModal()
  Print responso
  Return responso
End

Public Sub m_dwg_MouseDown()
  If Mouse.X > ((my_win_box.Width / 2) - 70) Then
    If Mouse.Y > (my_win_box.Height - 30) Then
      my_win_box.Close(3)
    Endif
  Endif
End

' Dichiarazione d'intenti ...
Public mn_1 As Menu
Public submn As Menu
Public sub_submn As Menu


Public Sub _new()

End

Public Sub Form_Open()
Dim i, j As Integer
Dim testo1, testo2 As String
' creazione dei vari menù e sub menù ...
mn_1 = New Menu(Me, False)
mn_1.Caption = "Operazioni"
' ciclo per la creazione ...
For i = 0 To 3
  Select Case i
    Case 0
      testo1 = "Documento"
    Case 1
      testo1 = "Salva"
    Case 2
      testo1 = "Stampa"
    Case 3
      testo1 = "Esci"          
  End Select
  With submn = New Menu(mn_1, False)
    .Caption = testo1
    .Name = testo1
  End With
  Object.Attach(submn, Me, "SubMn")
  If i = 0 Then
    For j = 0 To 1
      Select Case j
        Case 0
          testo2 = "Crea"
        Case 1
          testo2 = "Richiama"
      End Select
      With sub_submn = New Menu(submn, False)
        .Caption = testo2
        .Name = testo2
        '.Action = sub_submn.Name
      End With
      Object.Attach(sub_submn, submn, "SubSubMn")
    Next
  Endif
  If i = 2 Then
    For j = 0 To 1
      Select Case j
        Case 0
          testo2 = "Crea file Pdf"
        Case 1
          testo2 = "Direttamente"
      End Select
      With sub_submn = New Menu(submn, False)
        .Caption = testo2
        .Name = testo2
      End With   
      Object.Attach(sub_submn, submn, "SubSubMn")
    Next
  Endif
Next

End

Public Sub submn_Click()  

' Riscontriamo quale sotto-voce abbiamo scelto:
  Message.Info("Hai premuto il sotto-menu: " & Last.Name)
  If Last.Name = "Esci" Then
    Me.Close
  Endif
End

Public Sub sub_submn_Click()  

' Riscontriamo quale sotto-voce abbiamo scelto:
  Message.Info("Hai premuto il sotto-sotto-menu: ")
  
End