[LEFT] Enum RecivedType_Type As Byte
Dama
Rotobat
End Enum
[/LEFT]
Dim RecivedType As RecivedType_Type = RecivedType_Type.Dama
[LEFT] Case "%"
RecivedType = RecivedType_Type.Dama
txtReceivedDama.Text = ""
Case "#"
RecivedType = RecivedType_Type.Rotobat
txtReceivedRotobat.Text = ""
[/LEFT]
[COLOR=#333333]
[/COLOR]
Case Else
Select Case RecivedType
Case RecivedType_Type.Dama
txtReceivedDama.Text += Count.Current
Case RecivedType_Type.Rotobat
txtReceivedRotobat.Text += Count.Current
End Select