1 adet timer1 > Timer1.İnterval=1 olsun & Enabled=True olacak
1 adette Textbox1.Text

_________________________________________________
If TextBox1.Text "" Then
Dim cntrl As Integer
cntrl = Mid(TextBox1.Text, TextBox1.Text.Length, 1)
If cntrl = 1 Then
Me.Text = "tek"
ElseIf cntrl = 3 Then
Me.Text = "tek"
ElseIf cntrl = 5 Then
Me.Text = "tek"
ElseIf cntrl = 7 Then
Me.Text = "tek"
ElseIf cntrl = 9 Then
Me.Text = "tek"
Else
Me.Text = "Cift"
End If
End If
__________________