What's Here?
- Members: 148,851
- Replies: 504,954
- Topics: 79,531
- Snippets: 2,661
- Tutorials: 705
- Total Online: 2,132
- Members: 77
- Guests: 2,055
|
|
Submitted By:
|
|
|
Rating:
|
|
Views: 23,486 |
Language: Visual Basic
|
|
Last Modified: October 11, 2005 |
|
Instructions: just copy and paste |
Snippet
Private Sub Command1_Click() End Sub Private Sub Cmdcalculate_Click() Dim calculate As String Dim number As Single Dim balance As Single amount = Txtnumber.Text balance = 100 If amount > balance Then MsgBox " you have exceede you limit," If amount < balance Then MsgBox " no money get a job ," If amount <> balance Then MsgBox " new balance 100," End Sub Private Sub Cmdclear_Click() Txtnumber.Text = "" End Sub
Copy & Paste
|
|
|
Be Social
Reference Sheets
Bye Bye Ads
Monthly Drawing
Top Contributors
Top 10 Kudos This Month
|
| 