Como fazer um jogo de pong com o código em vb

Abra o Visual Basic e clique em Criar, localizado no canto superior esquerdo. A partir da janela resultante, selecione Formulário Windows ou Web Site por sua preferência, e digite o título do jogo no campo Nome. 

Selecione Exibir no menu seguido pela Caixa de Ferramentas. Clique duas vezes em objetos que você deseja usar para o seu jogo e arrastá-los para o formulário na tela.

Digite o seguinte código na página de codificação resultante: Dim vmom As Integer `detém verticais impulso da bola hmom Dim As Integer` detém horizontal impulso Private Sub Form_Load da bola () Randomize `fazer as momentums verticais e horizontais aleatória vmom = 100 + Int ( rnd * 200) hmom = 100 + Int (rnd * 200) End Sub Private Sub Form_MouseMove (Button as Integer, deslocar as Integer, X Como standard, Y Como Individual) `mover a pá para a posição do rato Shape1.Left = X - (Shape1.Width / 2) End Sub Private Sub Timer1_Timer () `mover a bola, com base no momenutm virtical e horizontal Shape2.Top = Shape2.Top + vmom Shape2.Left = Shape2.Left + hmom` ver se a bola está atingindo a superfície da pá Se (Shape2.Top + Shape2.Height) gt; Shape1.Top Então Se Shape2.Left + Shape2.Width gt; = Shape1.Left E Shape2.Left lt; = Shape1.Left + Shape1.Width Então vmom = -vmom End If End If `ver se a bola atingiu a borda da tela Se (Shape2.Left + Shape2.Width) gt; Form1.Width Então Shape2.Left = Form1.Width - Shape2.Width hmom = -hmom `este reverte a direção de bola ElseIf Shape2.Left lt; 0 Then Shape2.Left = 0 hmom = -hmom `este reverte a direção de bola ElseIf Shape2.Top lt; 0 Then Shape2.Top = 0 vmom = -vmom `este reverte a direção de bola ElseIf Shape2.Top gt; Form1.Height Then MsgBox "Você perdeu!" Timer1.Enabled = False End If End Sub

Pressione F5 para executar o programa.