Wozu ein Mediaplayer xd zum lernen würde ich mal was anderes Coden xd wie z.B. ein Html editor oder ein Link Stealer etc xd und vorallem du benutzt noch die dll von dem Mediaplayer

...zur Antwort

DER CODE

Imports System.Net

Imports System.IO

Imports System.Web

Public Class Generate

  'Made by GhostonCodes all right reserved ;)

  Private Sub PictureBox2_Click(sender As Object, e As EventArgs) Handles PictureBox2.Click

    If MsgBox("Do you really want to close Light :c???", vbYesNo) = MsgBoxResult.Yes Then

      Me.Close()

      Form1.Close()

    Else

      Me.Show()

    End If

  End Sub

  Private Sub ParseAccount(ByVal Account As String)

    Password.Text = Account.Split(":")(1)

    Email.Text = Account.Split(":")(0)

  End Sub

  Sub New()

    InitializeComponent()

    wc = New WebClient

    R = New Random

  End Sub

  Private Const Minecraft As String = "Halt die Links von den Servern"

  Private Const Spotify As String = "Halt die Links von den Servern"

  Private Const Steam As String = "Halt die Links von den Servern"

  Private Const Netflix As String = "Halt die Links von den Servern"

  Private wc As WebClient

  Private R As Random

  Sub Generate()

    Select Case Combo.SelectedItem

      Case "Minecraft"

        Dim Account As String() = wc.DownloadString(Minecraft).Split(Environment.NewLine)

        ParseAccount(Account(R.Next(1, Account.Length)))

      Case "Spotify"

        Dim Account As String() = wc.DownloadString(Spotify).Split(Environment.NewLine)

        ParseAccount(Account(R.Next(1, Account.Length)))

      Case "Steam"

        Dim Account As String() = wc.DownloadString(Spotify).Split(Environment.NewLine)

        ParseAccount(Account(R.Next(1, Account.Length)))

      Case "Netflix"

        Dim Account As String() = wc.DownloadString(Spotify).Split(Environment.NewLine)

        ParseAccount(Account(R.Next(1, Account.Length)))

      Case Else

        MsgBox("Please choose something")

    End Select

  End Sub

  Private Sub Label3_Click(sender As Object, e As EventArgs) Handles Label3.Click

    Generate()

  End Sub

  Private Sub PictureBox6_Click(sender As Object, e As EventArgs) Handles PictureBox6.Click

    Me.Close()

    Form1.Show()

  End Sub

  Dim newpoint As New System.Drawing.Point

  Dim x, y As Integer

  Private Sub PictureBox1_MouseDown(sender As Object, e As MouseEventArgs) Handles PictureBox1.MouseDown

    x = Control.MousePosition.X - Me.Location.X

    y = Control.MousePosition.Y - Me.Location.Y

  End Sub

  Private Sub Generate_Load(sender As Object, e As EventArgs) Handles MyBase.Load

  End Sub

  Private Sub Label1_Click(sender As Object, e As EventArgs) Handles Label1.Click

  End Sub

  Private Sub PictureBox1_MouseMove(sender As Object, e As MouseEventArgs) Handles PictureBox1.MouseMove

    If e.Button = Windows.Forms.MouseButtons.Left Then

      newpoint = Control.MousePosition

      newpoint.X -= (x)

      newpoint.Y -= (y)

      Me.Location = newpoint

    End If

  End Sub

End Class

...zur Antwort

Nicht bei jedem Nike Huarache Schuh steht air drauf.

...zur Antwort

Achso Twin star exorcist 

das ist die Basara Theme musik hoffe konnte dir weiterhelfen :D

...zur Antwort

Re:zero richtig nice 

...zur Antwort

Nein geht noch aber auf bs.to unzwar musst du bei deinem gewünschten anime drauf gehen (da gibt es eine gute auswahl) und dan auf vivo klicken und oben rechts neben stream (wirst noch dafor weitergeleitet auf einer extra seite) und dan neben stream steht free download

...zur Antwort

guck eng-dub und ger-sub

...zur Antwort

Ich kenne nur eine Serie die kein Anime ist "Supernatrual" richtig geil!!!

...zur Antwort

Ich weiß nicht ob er dir gefallen wird aber hier : https://bs.to/serie/Re-Zero-Kara-Hajimeru-Isekai-Seikatsu

...zur Antwort