Public Class frmeqmComboBoxListe
    Inherits System.Windows.Forms.Form
 
#Region " Vom Windows Form Designer generierter Code "
        '
        'DGAnzeige
        '
        Me.DGAnzeige.BackgroundColor = System.Drawing.Color.White
        Me.DGAnzeige.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
        Me.DGAnzeige.CaptionVisible = False
        Me.DGAnzeige.DataMember = ""
        Me.DGAnzeige.HeaderForeColor = System.Drawing.SystemColors.ControlText
        Me.DGAnzeige.Name = "DGAnzeige"
        Me.DGAnzeige.ParentRowsVisible = False
        Me.DGAnzeige.ReadOnly = True
        Me.DGAnzeige.RowHeadersVisible = False
        Me.DGAnzeige.Size = New System.Drawing.Size(140, 72)
        Me.DGAnzeige.TabIndex = 4
        '
        'frmeqmComboBoxListe
        '
#End Region
 
 
    Private Sub frmeqmComboBoxListe_Resize(ByVal sender As Object, ByVal e As _
      System.EventArgs) Handles MyBase.Resize
        Me.DGAnzeige.Top = 0
        Me.DGAnzeige.Left = 0
        Me.DGAnzeige.Width = Me.Width - 10
        Me.DGAnzeige.Height = Me.Height - 10
    End Sub
 
    Private Sub DGAnzeige_MouseUp(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.MouseEventArgs) Handles DGAnzeige.MouseUp
        ' Me.Close()
    End Sub
 
    Private Sub frmeqmComboBoxListe_KeyDown(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyDown
        If e.KeyCode = Keys.Escape Then
            Me.Close()
        End If
    End Sub
 
    Private Sub DGAnzeige_KeyDown(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.KeyEventArgs) Handles DGAnzeige.KeyDown
        If e.KeyCode = Keys.Escape Then
            Me.Close()
        End If
    End Sub
 
End Class

Gru? Rub

(PS: Besuch doch mal meine Seiten http://e-liquids.de und http://jjpassion.de)