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