Keskustelu: Koodit: VB6: Laskin

' Commandbutton1
Private Sub Command1_Click()
text1.text= "1"
end sub

' Commandbutton2
Private Sub Command2_Click()
text1.text= "2"
end sub

' Commandbutton3
Private Sub Command3_Click()
text1.text= "3"
end sub

' Commandbutton4
Private Sub Command4_Click()
text1.text= "4"
end sub

' Commandbutton5
Private Sub Command5_Click()
text1.text= "5"
end sub

' Commandbutton6
Private Sub Command6_Click()
text1.text= "6"
end sub

' Commandbutton7
Private Sub Command7_Click()
text1.text= "7"
end sub

' Commandbutton8
Private Sub Command8_Click()
text1.text= "8"
end sub

' Commandbutton9
Private Sub Command9_Click()
text1.text= "9"
end sub

' Commandbutton10
Private Sub Command10_Click()
text1.text= "0"
end sub