Quote:
Originally Posted by OpenLoop
You'll have to post some code. Don't forget to use the CODE tags. Also, are you using VB.NET or VB6?
|
<code>
<font color="red" font size="3">
I'm using VB.net 2005, here's my code...
Public Class Frm0
Dim Mon As String
Dim january, February, March, April, May, June, July, August, September, October, November, December As String
Dim Dat As String
Dim one, two, three, four, five, six, seven, eight, nine, ten, eleven, twelve, thrirteen, fourteen, fifteen, sixteen, seventeen, eighteen, nineteen, twenty, twenty_one, twenty_two, twenty_three, twenty_four, twenty_five, twenty_six, twenty_seven, twenty_eight, twenty_nine, thirty, thirty_one As String
Private Sub Frm0_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Private Sub btn1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn1.Click
End
End Sub
Private Sub Button1_Clsick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn3.Click
Txt1.Text = " "
End Sub
Private Sub Btn2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn2.Click
If Mon = March And Dat >= twenty_one & Mon = April And Dat <= nineteen Then
Txt1.Text = "Your sign is: Aries"
End If
End Sub
End Class
</font>
</code>