Option Explicit
 
'Deklaration: Globale Form API-Typen
Private Type MEMORYSTATUS
    dwLength As Long
    dwMemoryLoad As Long
    dwTotalPhys As Long
    dwAvailPhys As Long
    dwTotalPageFile As Long
    dwAvailPageFile As Long
    dwTotalVirtual As Long
    dwAvailVirtual As Long
End Type
 
'Deklaration: Globale Form API-Funktionen
Private Declare Sub GlobalMemoryStatus Lib "kernel32" (lpBuffer As MEMORYSTATUS)
 
Private Sub Form_Load()
    'Deklaration: Lokale Prozedur-Variablen
    Dim strText As String
 
    Dim udtMem As MEMORYSTATUS
 
    GlobalMemoryStatus udtMem
 
    With udtMem
        strText = strText & "Speicher belegt in Prozent : " & _
            Format$(.dwMemoryLoad, "@@@@@@@@@@@") & vbCrLf & vbCrLf
 
        strText = strText & "Totaler physischer Speicher : " & _
            Format$(.dwTotalPhys, "@@@@@@@@@@@") & vbCrLf
 
        strText = strText & "Davon noch frei : " & _
            Format$(.dwAvailPhys, "@@@@@@@@@@@") & vbCrLf & vbCrLf
 
        strText = strText & "Bytes in gepageten Dateien :  " & _
            Format$(.dwTotalPageFile, "@@@@@@@@@@@") & vbCrLf
 
        strText = strText & "Davon noch frei : " & _
            Format$(.dwAvailPageFile, "@@@@@@@@@@@") & vbCrLf & vbCrLf
 
        strText = strText & "Totaler virtueller Speicher : " & _
            Format$(.dwTotalVirtual, "@@@@@@@@@@@") & vbCrLf
 
        strText = strText & "Davon noch frei : " & _
            Format$(.dwAvailVirtual, "@@@@@@@@@@@") & vbCrLf
    End With
 
    Label1.Caption = strText
End Sub

 
If M?lleimer.Entfernung <= Wurfweite Then
   M?ll.Werfen.ToM?lleimer()
ElseIf M?lleimer.Entfernung > Wurfweite Then
   M?ll.Werfen.ToBoden()
End If