リスト１０：計算結果のコピー Private Sub cmdCopy_Click() 　　Dim strResult As String 　　strResult = CStr(MiniCalc1.sglResult) 　　Clipboard.Clear 　　Clipboard.SetText strResult End Sub 本文へ戻る