SpashScreen Transparent in vb.net

hi

i convert some code C# to VB for splash screen but i have problems

Imports System.Drawing.Imaging
Imports System.Drawing

Public Class splash
    Private Sub splash_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        refresh()
        Version.Text = System.String.Format(Version.Text, My.Application.Info.Version.Major, My.Application.Info.Version.Minor)

        'Copyright info
        Copyright.Text = My.Application.Info.Copyright

    End Sub

    Sub New()
        EnsureInitialized()
        InitializeComponent()
    End Sub

    Private Sub refresh()
        Try
            MyBase.Hide()
            Dim bitmap As New Bitmap(MyBase.Width, MyBase.Height, PixelFormat.Format32bppArgb)
            Dim graphics__1 As Graphics = Graphics.FromImage(bitmap)
            graphics__1.CopyFromScreen(MyBase.Location.X, MyBase.Location.Y, 0, 0, MyBase.Size, CopyPixelOperation.SourceCopy)
            bitmap.Save("spls.bin", ImageFormat.Png)
            Me.BackgroundImage = bitmap
            MyBase.Show()
        Catch generatedExceptionName As Exception
        End Try
    End Sub

End Class