home *** CD-ROM | disk | FTP | other *** search
/ PC Professionell 1999 October / PCpro_1999_10.ISO / Tools / dialer98 / Source / anwahl.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1998-04-07  |  2.8 KB  |  89 lines
  1. VERSION 5.00
  2. Begin VB.Form Form4 
  3.    BorderStyle     =   3  'Fester Dialog
  4.    Caption         =   "Anwahl"
  5.    ClientHeight    =   2535
  6.    ClientLeft      =   4500
  7.    ClientTop       =   2535
  8.    ClientWidth     =   4455
  9.    Icon            =   "anwahl.frx":0000
  10.    LinkTopic       =   "Form4"
  11.    MaxButton       =   0   'False
  12.    MinButton       =   0   'False
  13.    PaletteMode     =   1  'ZReihenfolge
  14.    ScaleHeight     =   2535
  15.    ScaleWidth      =   4455
  16.    ShowInTaskbar   =   0   'False
  17.    StartUpPosition =   2  'Bildschirmmitte
  18.    Begin VB.Frame Frame1 
  19.       Height          =   2472
  20.       Left            =   60
  21.       TabIndex        =   0
  22.       Top             =   0
  23.       Width           =   4332
  24.       Begin VB.CommandButton Command1 
  25.          Caption         =   "&Abbruch"
  26.          Height          =   435
  27.          Left            =   1380
  28.          TabIndex        =   4
  29.          Top             =   1920
  30.          Width           =   1515
  31.       End
  32.       Begin VB.Label Label1 
  33.          Alignment       =   2  'Zentriert
  34.          AutoSize        =   -1  'True
  35.          BackColor       =   &H0000FFFF&
  36.          BorderStyle     =   1  'Fest Einfach
  37.          Caption         =   " Anwahl l
  38. uft ... "
  39.          BeginProperty Font 
  40.             Name            =   "Arial"
  41.             Size            =   12.75
  42.             Charset         =   0
  43.             Weight          =   700
  44.             Underline       =   0   'False
  45.             Italic          =   -1  'True
  46.             Strikethrough   =   0   'False
  47.          EndProperty
  48.          ForeColor       =   &H00000000&
  49.          Height          =   345
  50.          Index           =   3
  51.          Left            =   1185
  52.          TabIndex        =   3
  53.          Top             =   240
  54.          Width           =   1965
  55.       End
  56.       Begin VB.Label Label1 
  57.          Alignment       =   2  'Zentriert
  58.          Caption         =   "Label1"
  59.          Height          =   432
  60.          Index           =   0
  61.          Left            =   120
  62.          TabIndex        =   2
  63.          Top             =   960
  64.          Width           =   4032
  65.       End
  66.       Begin VB.Label Label1 
  67.          Alignment       =   2  'Zentriert
  68.          Caption         =   "Label1"
  69.          Height          =   432
  70.          Index           =   1
  71.          Left            =   120
  72.          TabIndex        =   1
  73.          Top             =   1380
  74.          Width           =   4032
  75.       End
  76.    End
  77. Attribute VB_Name = "Form4"
  78. Attribute VB_GlobalNameSpace = False
  79. Attribute VB_Creatable = False
  80. Attribute VB_PredeclaredId = True
  81. Attribute VB_Exposed = False
  82. Option Explicit
  83.  Sub Command1_Click()
  84.     '### Abbruchtaste
  85.     Form1.Comm.Output = vbCr
  86.     Form1.Comm.PortOpen = False
  87.     Unload Me
  88. End Sub
  89.