<code><font color=#000099>Option</font> <font color=#000099>Explicit</font>
 
<font color=green>' zunächst die benötigten Deklarationen</font>
<font color=#000099>Private</font> <font color=#000099>Declare</font> <font _
  color=#000099>Function</font> SendMessage <font color=#000099>Lib</font> _
  "user32" <font color=#000099>Alias</font> _
  "SendMessageA" (<font color=#000099>ByVal</font> hWnd <font _
  color=#000099>As</font> <font color=#000099>Long</font>, <font _
  color=#000099>ByVal</font> wMsg <font color=#000099>As</font> <font _
  color=#000099>Long</font>, _
  <font color=#000099>ByVal</font> wParam <font color=#000099>As</font> <font _
  color=#000099>Long</font>, lParam <font color=#000099>As</font> <font _
  color=#000099>Long</font>) <font color=#000099>As</font> <font _
  color=#000099>Long</font>
 
<font color=#000099>Private</font> <font color=#000099>Const</font> EM_UNDO = _
  &HC7
<font color=#000099>Private</font> <font color=#000099>Const</font> EM_CANUNDO _
= &HC6
 
<font color=green>' Prüfen, ob UNDO möglich</font>
 
<font color=#000099>Public</font> <font color=#000099>Function</font> CanUNDO( _
  hWnd <font color=#000099>As</font> <font color=#000099>Long</font>)
  CanUNDO = (SendMessage(hWnd, EM_CANUNDO, 0, 0) <> 0)
<font color=#000099>End</font> <font color=#000099>Function</font>
 
 
<font color=green>' UNDO ausführen</font>
<font color=#000099>Public</font> <font color=#000099>Sub</font> MakeUNDO(hWnd _
  <font color=#000099>As</font> <font color=#000099>Long</font>)
  <font color=#000099>Dim</font> Result <font color=#000099>As</font> <font _
  color=#000099>Long</font>
  Result = SendMessage(hWnd, EM_UNDO, 0, 0)
<font color=#000099>End</font> <font color=#000099>Sub</font>
 
 
<font color=#000099>Private</font> <font color=#000099>Sub</font> _
  Toolbar1_ButtonClick(<font color=#000099>ByVal</font> Button <font _
  color=#000099>As</font> MSComctlLib.Button)
  <font color=#000099>Select</font> <font color=#000099>Case</font> Button.Key
    <font color=#000099>Case</font> "save"
      <font color=green>' Speichern</font>
      Save_Textfelder
 
    <font color=#000099>Case</font> "cut"
      <font color=green>' Ausschneiden</font>
      <font color=#000099>If</font> TypeOf ActiveControl Is TextBox <font _
        color=#000099>Then</font>
        <font color=#000099>If</font> ActiveControl.SelLength > 0 <font _
        color=#000099>Then</font>
          Clipboard.SetText ActiveControl.SelText
          ActiveControl.SelText = ""
        <font color=#000099>End</font> <font color=#000099>If</font>
      <font color=#000099>End</font> <font color=#000099>If</font>
 
    <font color=#000099>Case</font> "copy"
      <font color=green>' Kopieren</font>
      <font color=#000099>If</font> TypeOf ActiveControl Is TextBox <font _
        color=#000099>Then</font>
        <font color=#000099>If</font> ActiveControl.SelLength > 0 <font _
        color=#000099>Then</font>
          Clipboard.SetText ActiveControl.SelText
        <font color=#000099>End</font> <font color=#000099>If</font>
      <font color=#000099>End</font> <font color=#000099>If</font>
 
    <font color=#000099>Case</font> "delete"
      <font color=green>' Löschen</font>
      <font color=#000099>If</font> TypeOf ActiveControl Is TextBox <font _
        color=#000099>Then</font>
        <font color=#000099>If</font> ActiveControl.SelLength > 0 <font _
        color=#000099>Then</font>
          ActiveControl.SelText = ""
        <font color=#000099>End</font> <font color=#000099>If</font>
      <font color=#000099>End</font> <font color=#000099>If</font>
 
    <font color=#000099>Case</font> "undo"
      <font color=green>' Ausschneiden</font>
      <font color=#000099>If</font> TypeOf ActiveControl Is TextBox <font _
        color=#000099>Then</font>
        <font color=#000099>If</font> CanUNDO(ActiveControl.hWnd) <font _
        color=#000099>Then</font>
          MakeUNDO ActiveControl.hWnd
        <font color=#000099>End</font> <font color=#000099>If</font>
      <font color=#000099>End</font> <font color=#000099>If</font>
  <font color=#000099>End</font> <font color=#000099>Select</font>
<font color=#000099>End</font> <font color=#000099>Sub</font>
 
 
<font color=green>' Textfelder speichern</font>
<font color=#000099>Private</font> <font color=#000099>Sub</font> _
  Save_Textfelder()
  <font color=#000099>Dim</font> F <font color=#000099>As</font> <font _
  color=#000099>Integer</font>
  <font color=#000099>Dim</font> sFile <font color=#000099>As</font> <font _
  color=#000099>String</font>
  <font color=#000099>Dim</font> C <font color=#000099>As</font> <font _
  color=#000099>Control</font>
 
  sFile = App.Path & "	extfelder.dat"
  F = FreeFile
  <font color=#000099>Open</font> sFile <font color=#000099>For</font> <font _
    color=#000099>Output</font> <font color=#000099>As</font> #F
  <font color=#000099>For</font> Each C In Me.Controls
    <font color=#000099>If</font> TypeOf C Is TextBox <font _
      color=#000099>Then</font>
      <font color=#000099>Print</font> #F, C.Text
    <font color=#000099>End</font> <font color=#000099>If</font>
  <font color=#000099>Next</font> C
  <font color=#000099>Close</font> #F
<font color=#000099>End</font> <font color=#000099>Sub</font></code>