Keskustelu: Koodit: VB6: Enemmän sanoja

Private Sub Text1_Change()
Select Case Text1.Text
   Case "Koulu"
      Msgbox "Pysyn hiljaa..."
   Case "Tietokone"
      Msgbox "Tietävä kone"
   ' Sitä voi jatkaa vielä vaikka sata Casea
End Select
End Sub