'---------------------------------------------------------------------
    '            Tastencodes an C Control senden
    '---------------------------------------------------------------------
 
    Private Sub Taste0_Click(ByVal sender As System.Object, _
                             ByVal e As System.EventArgs) _
                             Handles Taste0.Click
        SerialPort1.Write("0", 0, 1)
    End Sub
'
'   hier Tasten 1 - 8 , clear und enter
'   insgesamt 12 x fast das selbe
'
'
'
    Private Sub Taste9_Click(ByVal sender As System.Object, _
                             ByVal e As System.EventArgs) _
                             Handles Taste9.Click
        SerialPort1.Write("9", 0, 1)
    End Sub

mfg
Ellen