Public Class Form1
Inherits System.Windows.Forms.Form


Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Dim itemid, quantity As Integer
Dim unitprice, subtotal As Single

itemid = InputBox(" Please Enter the Item ID")
quantity = InputBox(" Please Enter the Quantity")
unitprice = InputBox(" Please Enter the Unit Price")

subtotal = quantity * unitprice

MsgBox("The Item ID is " & itemid)
MsgBox("The quantity is " & quantity)
MsgBox("The Unit Price is " & unitprice)
MsgBox("The Sub Total is " & subtotal)


End Sub
End Class