Option Explicit

Private Declare Sub GetMem1 Lib "msvbvm60.dll" (ByVal _
      MemAddress As Long, var As Byte)

Private Function GetBIOSDate(MemAddr As Long, _
      laenge As Integer) As String
  Dim p As Byte, sBios As String
  Dim i As Integer

  For i = 0 To laenge
    Call GetMem1(MemAddr + i, p)
    sBios = sBios & Chr$(p)
  Next i
  GetBIOSDate = sBios
End Function

Private Sub Command1_Click(Index As Integer)
  Select Case Index
    Case 1
      Label1(1).Caption = GetBIOSDate(&HFE061, 30)
      Label1(2).Caption = Trim$(GetBIOSDate(&HFE091, 43))
      Label1(3).Caption = GetBIOSDate(&HFEC71, 45)
      Label1(5).Caption = GetBIOSDate(&HFFFF5, 7)

      If InStr(1, Label1(1).Caption, "BIOS") <= 1 Then
         Label1(1).Caption = GetBIOSDate(&HFF400, 12)
         Label1(2).Caption = GetBIOSDate(&HFF450, 31)
         Label1(3).Caption = GetBIOSDate(&HFF478, 39)

        If InStr(1, Label1(1).Caption, "BIOS") <= 1 Then
            Label1(1).Caption = "nicht zu ermitteln"
            Label1(2).Caption = "nicht zu ermitteln"
            Label1(3).Caption = "nicht zu ermitteln"
        End If
      End If

    Case Else
      Unload Me
      End
  End Select
End Sub