gui form for chek

' Gambas class file

Public Sub Button1_Click()
  Dim total As Integer
  Dim string2print As String
  'v1,v2,v3,v4 - имя valuebox (хз как число вытащить отуда) - цена для каждого товара
  total = Val(v1.text) + Val(v2.text) + Val(v3.text) + Val(v4.text) 'получаем текст и переводим его в цифровое значение
  'Print total
  ttl.text = Str(total) 'выводим значение в текстовое поле
  string2print = n1.text & "=" & v1.text & " | " & n2.text & "=" & v2.text & "|" & n3.text & "=" & v3.text & "|" & n4.text & "=" & v4.text & "/" & company.text & "/"
  Message(string2print)
End