Public Class frmSplash
    Private Sub tmrCunt_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmrCunt.Tick
        tmrCunt.Enabled = False
        Me.Hide()
        frmConnection.Show()
        Me.Dispose()
    End Sub
    Private Sub Me_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Click
        tmrCunt.Enabled = False
        My.Computer.Audio.Play(My.Resources.nrc_phail, AudioPlayMode.WaitToComplete)
        MsgBox("Eh, can't you wait till I loaded? And stop wanking, it's Habbo c'mon." & vbNewLine & vbNewLine & "As a punishment for this fail, you have to click the .exe again.", MsgBoxStyle.Critical, "Nillus Retro Commander : Epic fail noticed")
        Environment.Exit(2)
    End Sub

    Private Sub frmSplash_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim dier As String = "whaa"
        If Not (dier = "woo" Or dier = "whaa" Or dier = "uhuh") Then MsgBox("lolzz!")
    End Sub
End Class