VERSION 5.00
Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} KerroinValinta 
   Caption         =   "Valitse laskennan kerroin"
   ClientHeight    =   1815
   ClientLeft      =   45
   ClientTop       =   435
   ClientWidth     =   4170
   OleObjectBlob   =   "Luku11 - Yksinkertainen lomake.frx":0000
   StartUpPosition =   1  'CenterOwner
End
Attribute VB_Name = "KerroinValinta"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Private Sub UserForm_Activate()
  Me.ComboBox1.AddItem "1,705"
  Me.ComboBox1.AddItem "1,995"
  Me.SetDefaultTabOrder
End Sub

Private Sub CommandButton1_Click()
  ThisWorkbook.Sheets(1).Range("A1").Value = _
    CDbl(Me.ComboBox1.Text)
  Unload KerroinValinta
End Sub