مرحبا اخى
PHP كود :
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
dim v As Double=val(TextBox3.Text)
if v>0 then
Label6.Text = FormatNumber( v / 79500 )
End if
End Sub
