VBLM_RT3.frm

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