' Vom Formdesigner    
    Friend WithEvents Taste1 As System.Windows.Forms.Button
    Friend WithEvents Taste2 As System.Windows.Forms.Button
    Friend WithEvents Taste4 As System.Windows.Forms.Button
    Friend WithEvents Taste3 As System.Windows.Forms.Button
    Friend WithEvents Taste5 As System.Windows.Forms.Button
    Friend WithEvents Taste6 As System.Windows.Forms.Button
    Friend WithEvents Taste7 As System.Windows.Forms.Button
    Friend WithEvents Taste8 As System.Windows.Forms.Button
    Friend WithEvents Taste9 As System.Windows.Forms.Button
    Friend WithEvents Taste_clear As System.Windows.Forms.Button
    Friend WithEvents Taste0 As System.Windows.Forms.Button
    Friend WithEvents Taste_enter As System.Windows.Forms.Button
 
    ' eigener Code:
    '---------------------------------------------------------------------
    '                Tastencodes an SPS senden
    '---------------------------------------------------------------------
 
    Private Sub Tasten_Click(ByVal sender As System.Object, _
                             ByVal e As System.EventArgs) _
                             Handles Taste0.Click, Taste1.Click, Taste2.Click, _
                             Taste3.Click, _
                                     Taste4.Click, Taste5.Click, Taste6.Click, _
                                     Taste7.Click, _
                                     Taste8.Click, Taste9.Click, _
                                     Taste_enter.Click, Taste_clear.Click
 
       ' in  sender.text steht der Tastencode drin (Beschriftung des Buttons)
       ' "0" ..... "9", "E" und "C"
 
        ' beide Anweisungen zur Auswertung sind möglich:
        'If comOpen Then SerialPort1.Write(CType(sender, Control).Text, 0, 1)
        If comOpen Then SerialPort1.Write(sender.text, 0, 1)
    End Sub
Gruß

mfg
Ellen