ich habe in einer UF ein Multipage mit fünf Pages, wie kan ich für jede Page bei Aktivierung einen anderen Code ausführen.
If MultiPage1.Value = 1 Then
MsgBox "1"
ElseIf MultiPage1.Value = 2 Then
MsgBox "2"
End If
so gehts nicht
Gruß Harald
Function GetDiskFreeSpace Lib "kernel32" Alias
"GetDiskFreeSpaceA" (ByVal lpRootPathName As String,
lpSectorsPerCluster As Long, lpBytesPerSector As Long, _
lpNumberOfFreeClusters As Long, _
lpTotalNumberOfClusters As Long) As Long
Function GetFreeSpace(ByVal Drive$) As Double
Dim SecPerCluster&, BytesPerSector&, NumFreeClusters&,
NumClusters&
Dim lRet&
Dim dVal#
lRet& = GetDiskFreeSpace(Drive$, SecPerCluster&, BytesPerSector&,
NumFreeClusters&, NumClusters&)
dVal# = SecPerCluster& * BytesPerSector&
dVal# = dVal# * NumFreeClusters&
GetFreeSpace = dVal#
End Function