Public Sub form_Open()
Dim siNum As Short[] = [72, 97, 112, 112, 121, 32, 67, 104, 114, 105, 115,
116, 109, 97, 115, 32, 116, 111, 32, 121, 111, 117, 32, 97, 115, 32, 119,
101, 108, 108]
Dim siCount As Short
For Each siCount In siNum
Print Chr(siCount);
Next
End
--
View this message in contex
Am Freitag, den 25.12.2015, 12:49 +1030 schrieb adamn...@gmail.com:
> If Date(Now) = Date(2015,12,25) Then
> Print "May your day be joyous,\nMay your evening be serene,\May you and
> your family have peace, company and health."
> EndIf
>
> b
Salut,
send you the extra ->n<- you need to fin
If Date(Now) = Date(2015,12,25) Then
Print "May your day be joyous,\nMay your evening be serene,\May you and
your family have peace, company and health."
EndIf
b
--
B Bruen
--
_
