Question

how to create a form in visual basic

Answer 1

Private Sub cmdStart_Click()
Dim strPrice as String
Dim intcount As Integer
Dim curTotal AsCurrency

picShow.Cls


If txt Quantity Text=''''Then
MsgBox "Enter a quantity ", vbCritical, "sales"
Else
picShow print "there are"& txtQuantity, "items to be sold"

For inCount=1to txtQuantity
If cboSize. Text="small" or cboSize. Text="medium" or cboSize. Text="large". Then strPrice =inputbox ("enter the price of item"& inCount&"")
Else
Msgbox "you did not enter the size of item", vbCritical, "sales"
End if

If strPrice = false item
Exit sub
End if

CurTotal =cur Total +strPrice


PicShow print "Item"&inCount&"costed"&Formats currency(strPrice) &"and is a"& cbosize. Text&"item"
Next intCount

PicShow. Print "the total cost was"&for mate currency(CurTotal)
End if
End sub


Private sub Command1_click()
End
End sub