Public Class Form1 Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load Dim sFso = CreateObject("Scripting.FileSystemObject") For i As Integer = 0 To 4 If sFso.FileExists("slot" & i & ".sav") Then Me.Controls("Button" & i).Enabled = True Else Me.Controls("Button" & i).Enabled = False End If Next sFso = Nothing End Sub Private Sub Button0_Click(sender As Object, e As EventArgs) Handles Button0.Click, Button1.Click, Button2.Click, Button3.Click, Button4.Click Dim savegame As String = sender.Text Dim alphabet As String = "ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789" Dim myFile As IO.FileStream Dim cod As String = "" myFile = New IO.FileStream(savegame, IO.FileMode.Open, IO.FileAccess.Read) For k As Integer = 0 To 3 myFile.Seek(11608 + (k * 4), 0) cod &= Mid(alphabet, myFile.ReadByte, 1) Next myFile = Nothing mdiskCode.Text = cod mdiskCode.Visible = True Akuda.Visible = True End Sub End Class