(no subject)

Aug 06, 2007 10:45

Private Sub calcbtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles calcbtn.Click
Dim calcbtn As String
Dim temp As String
Dim count As Integer

calcbtn = (count * (9 / 5) + 32)
temp = converter.Items.Add("Centigrade Fahrenheit")
Do Until count = 20
converter.Items.Add(count & " " & calcbtn)
count += 1
calcbtn = (count * (9 / 5) + 32)
Loop
End Sub

Private Sub exitbtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles exitbtn.Click
End
End Sub
End Class
Previous post Next post
Up