home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / do-eve1r / form5.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1999-07-11  |  2.1 KB  |  69 lines
  1. VERSION 5.00
  2. Begin VB.Form Form2 
  3.    BackColor       =   &H00000000&
  4.    BorderStyle     =   1  'Fixed Single
  5.    Caption         =   "Lightning Messanger"
  6.    ClientHeight    =   3450
  7.    ClientLeft      =   45
  8.    ClientTop       =   345
  9.    ClientWidth     =   5670
  10.    Icon            =   "Form5.frx":0000
  11.    LinkTopic       =   "Form2"
  12.    MaxButton       =   0   'False
  13.    ScaleHeight     =   3450
  14.    ScaleWidth      =   5670
  15.    StartUpPosition =   3  'Windows Default
  16.    Begin VB.CommandButton Command2 
  17.       BackColor       =   &H00FF8080&
  18.       Caption         =   "&Cancel"
  19.       Height          =   495
  20.       Left            =   1440
  21.       Style           =   1  'Graphical
  22.       TabIndex        =   2
  23.       Top             =   2880
  24.       Width           =   1215
  25.    End
  26.    Begin VB.CommandButton Command1 
  27.       BackColor       =   &H00FF8080&
  28.       Caption         =   "&Send"
  29.       Height          =   495
  30.       Left            =   120
  31.       Style           =   1  'Graphical
  32.       TabIndex        =   1
  33.       Top             =   2880
  34.       Width           =   1215
  35.    End
  36.    Begin VB.TextBox Text1 
  37.       BackColor       =   &H00800000&
  38.       ForeColor       =   &H0000FFFF&
  39.       Height          =   2655
  40.       Left            =   120
  41.       MultiLine       =   -1  'True
  42.       ScrollBars      =   2  'Vertical
  43.       TabIndex        =   0
  44.       Top             =   120
  45.       Width           =   5415
  46.    End
  47. Attribute VB_Name = "Form2"
  48. Attribute VB_GlobalNameSpace = False
  49. Attribute VB_Creatable = False
  50. Attribute VB_PredeclaredId = True
  51. Attribute VB_Exposed = False
  52. Private Sub Command1_Click()
  53. On Error GoTo er
  54. Form1.Win.SendData "Meg " & Form1.Win.LocalIP & " says: " & Text1.Text & vbCrLf
  55. Form3.Text1.Text = ""
  56. Form3.Text1.SelText = Form1.Win.LocalIP & " says: " & Text1.Text & vbCrLf
  57. Unload Me
  58. Form3.Show
  59. Exit Sub
  60. MsgBox "An error has occurred, most likely you have forgotten to connect", vbCritical, "Error"
  61. Exit Sub
  62. End Sub
  63. Private Sub Command2_Click()
  64. Unload Me
  65. End Sub
  66. Private Sub Form_Activate()
  67. GRAD Me, vbRed, "Down", &H80&, &H80FF&
  68. End Sub
  69.