What's Here?
- Members: 300,330
- Replies: 825,614
- Topics: 137,387
- Snippets: 4,417
- Tutorials: 1,147
- Total Online: 1,825
- Members: 109
- Guests: 1,716
|
|
Submitted By:
|
|
Rating:
|
|
Views: 37,482 |
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
|
|
|
|