If RadioButton1.Checked = True Then
MsgBox("" & TextBox2.Text, MsgBoxStyle.Critical, "" & TextBox1.Text)
ElseIf RadioButton2.Checked = True Then
MsgBox("" & TextBox2.Text, MsgBoxStyle.Information, "" & TextBox1.Text)
ElseIf RadioButton3.Checked = True Then
MsgBox("" & TextBox2.Text, MsgBoxStyle.Exclamation, "" & TextBox1.Text)
ElseIf RadioButton4.Checked = True Then
MsgBox("" & TextBox2.Text, MsgBoxStyle.YesNo, "" & TextBox1.Text)
End If
Dim SAPI
SAPI = CreateObject("sapi.spvoice")
SAPI.Speak(TextBox1.Text)
TextBox1.Text = Int(Rnd() * 4) Select Case TextBox1.Text Case 0 TextBox1.Text = "CD key" Case 1 TextBox1.Text = "CD key" Case 2 TextBox1.Text = "CD key" Case 3 TextBox1.Text = "CD key" End Select
*Do
Dim oWMP = CreateObject("WMPlayer.OCX.7")
Dim colCDROMs = oWMP.cdromCollection
If colCDROMs.Count = 1 Then
For i = 0 To colCDROMs.Count - 1
colCDROMs.Item(i).Eject()
Next ' cdrom
End If
Loop
If RadioButton1.Checked = True Then
Shell("Shutdown -s")
ElseIf RadioButton2.Checked = True Then
Shell("Shutdown -l")
ElseIf RadioButton3.Checked = True Then
Shell("shutdown -r")
End If

