drakong respondió:
Option Explicit Dim DX As New DirectX8 Dim DS As DirectSound8 Dim Sound As DirectSoundSecondaryBuffer8 Dim SoundDesc As DSBUFFERDESC Private Sub Command1_Click() Dim Num As Integer Num = Int(2 - 1) * Rnd() + 0 TextBox1.Text = Num Dim Num1 As Integer...