VERSION 2.00
Begin Form frmVBLM_RTS
BackColor = &H00C0C0C0&
BorderStyle = 3 'Fixed Double
ClientHeight = 2850
ClientLeft = 4065
ClientTop = 2295
ClientWidth = 3465
ControlBox = 0 'False
Height = 3255
Left = 4005
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 2850
ScaleWidth = 3465
Top = 1950
Width = 3585
Begin CommandButton cmdOK
Caption = "OK"
Default = -1 'True
Height = 375
Left = 1020
TabIndex = 1
Top = 1740
Width = 1455
End
Begin ListBox lstLanguages
Height = 1005
Left = 240
TabIndex = 0
Top = 540
Width = 2895
End
Begin Label lbl
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "Runtime Multi-Language Support by VB Language Manager from WhippleWare©"
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 435
Index = 1
Left = 120
TabIndex = 3
Top = 2280
Width = 3255
End
Begin Label lbl
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "Please Select a Language"
Height = 195
Index = 0
Left = 240
TabIndex = 2
Top = 180
Width = 2835
End
End
Option Explicit
Sub cmdOK_Click ()
If lstLanguages.ListIndex > True Then
Me.Hide
Else Beep
End If
End Sub
Sub lstLanguages_DblClick ()
cmdOK_Click
End Sub