Public Class FrmScelta
 
   Private Sub BtnOk_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnOk.Click
      Me.Hide()
   End Sub
   Private Sub FrmScelta_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
      LbSpessLastra.Text = Format(SpessLastra, "0") & " mm"
   End Sub
    Private Sub LbSpessLastra_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LbSpessLastra.Click
      NumPad.Text = Format(SpessLastra, "0") ' la stringa di uscita
      NumPad.ShowDialog()
      SpessLastra = Convert.ToDouble(NumPad.Text)
      LbSpessLastra.Text = Format(SpessLastra, "0.0") & " mm"
    End Sub
End Class